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

uses crt;
var s:string;
    t1,t2,i,j,k:byte;
begin
clrscr;
writeln('Введите строку, содержащую точки');
readln(s);
i:=1;
k:=0;
t1:=0;
t2:=0;
while(i<=length(s))and(k<=2) do
 begin
  if s[i]='.'then
    begin
     k:=k+1;
     if k=1 then t1:=i
     else if k=2 then t2:=i;
    end;
  i:=i+1;
 end;
writeln('Индекс первой точки=',t1,'  второй=',t2);
if t2=0 then
 begin
  writeln('В строке менее двух точек');
  write(s);
 end
else if t2=t1+1 then write('Между первой и второй точками нет символов')
else
 begin
  s:=copy(s,t1+1,t2-t1-1);
  write(s);
 end;
readln
end.