Последовательность символов, заканчивающаяся точкой. написать программу, определяющую длину последовательности.

S: string;
k:=integer'

Функция
k:=POS('.', s);
{позиция символа в кавычках в строке}