Вставить два нуля между двумя соседними латинскими буквами

program Dsss;
const
  Lat : set of char = ['a'..'z', 'A'..'Z'];
var
  fi : Text;
  fo : Text;
  c, Old : char;
  Name1, Name2 : string;
begin
  WriteLn('задание 2');
  WriteLn('введи имя файла для чтения');
  ReadLn(Name1);
  WriteLn('введи имя файла для записи');
  ReadLn(Name2);
  Assign(fi, Name1);
  Reset(fi);
  Assign(fo, Name2);
  Rewrite(fo);
  Old := ' '; 
  while not Eof(fi) do begin
    Read(fi, c);
    if (Old in Lat) and (c in Lat) then Write(fo, '00');
    Write(fo, c);
    Old := c;
  end;
  Close(fo);
  Close(fi);
  WriteLn('Всё просто супер!!!');
  WriteLn;
  Write('Enter ...'); ReadLn;
end.

program Dsss;  
uses crt; 
const  
  Lat : set of char = ['a'..'z', 'A'..'Z'];   
var  
  fi : Text;   
  fo : Text;   
  Name1, Name2,c : string;
  i:byte;
  begin
  clrscr;
  WriteLn('задание 2');   
  WriteLn('введи имя файла для чтения');
  ReadLn(Name1);   
  WriteLn('введи имя файла для записи');   
  ReadLn(Name2);   
  Assign(fi, Name1);   
  Reset(fi);   
  Assign(fo, Name2);
  Rewrite(fo);   
  while not Eof(fi) do
    begin
      Readln(fi, c);{читаем строку(не read!)}
      for i:=length(c) downto 1 do{идем по строке с конца}
      if (c[i] in Lat) and (c[i-1] in Lat) then insert('00',c,i);
      {если рядом две латинских буквы, вставляем между ними 00}
      Writeln(fo,c);{выводим строку в файл(не write!)}
    end;
  Close(fo);   
  Close(fi);
  WriteLn('Всё просто супер!!!');   
  WriteLn;   
  Write('Enter ...'); ReadLn;   
end.