Вывести на экран и в новый файл все символы исходного файла, расположенные между первой и второй точкой

var F:Text; 
s:string;
t1,t2,i:integer;
begin
  assign(F,'input.txt');reset(F);
  while not Eof(F) do begin 
  write('Введите строку: ');read(s);
  t1:=-1;t2:=-1;
  for i:=1 to length(s) do 
    if s[i]='.' then begin
      t1:=i;
      break;
      end;
      for i:=i+1 to length(s) do
        if s[i]='.' then begin
          t2:=i;
          break;
      end;
      if (t1>0) and (t2>0) then
        for i:=t1+1 to t2-1 do write(s[i])
        else 
          for  i:=t1+1 to length(s) do write('Второй точки нет');
      writeln;
      readln;
      close(F);
      Writeln('File "input.txt" was created.');readln;
end;
end.

program Zadanie167project1;
const
  filename = 'input.txt';
var
  F: Text;  { Файловая переменная}
  t: array [1..2] of integer; {Переменная для хранения массива с индексами точек исходной строки.}
  s: string; {Переменная для хранения исходной строки}
  i,k: integer; { Вспомогательные переменные для организации циклов и подсчетов}
begin
  assign(F,filename);
  reset(F);
  while not Eof(F) do
  begin
    read(F,s);
    k:= 0;
    for i:= 1 to length(s) do  
      if s[i]= '.' then         {Условие для поиска точек}
        begin
          inc(k);
          t[k]:= i;
        end;
  end;
  if k = 0 then   {Условие для проверки на существование точек}
    writeln('В строке нет точек.')
  else
    if k = 1 then   {Условие для проверки на существование второй точки}
      writeln('В строке нет второй точки.')
    else
      begin
        writeln('Текст, который находится между первой и второй точками: ');
        writeln(copy(s,t[1]+1,t[2]-t[1]-1));
      end;
  close(F);
  readln;
end.