Задана строка символов, состоящая из нескольких предложений. Выделить предложение между первой и второй точками — Pascal(Паскаль)

uses crt;
var s:string;
    k,i:byte;
begin
clrscr;
repeat
writeln('Введите не менее 3х  предложений, разделенных точкой:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]='.')and(s[i-1]<>'.') then k:=k+1;//проверяем сколько точек после не точек
if k<2 then writeln('Текст введен неверно, повторите ввод!');
until k>=2;//если есть хоть 2, нормально
delete(s,1,pos('.',s));//удаляем все до первой точки включительно
writeln('Текст между первой и второй точками:');
write(copy(s,1,pos('.',s)-1));//выводим текст после первой точки до второй без нее
readln
end.