Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.

program k;
var
t:text;
t2:text;
 
st,i:set of char;
a:set of char;
begin
assign(t,'T.txt');
reset(t);
assign(t2,'T.txt');
rewrite(t2);
while not eof(t) do
begin
readln(t{st});
writeln(t);
end;
close(t);
reset(t);
a:=['a'..'z'];
if length(st) in a then begin
writeln(t2,st);
end;
reset(t2);
writeln('получ файл');
while not eof (t2) do
begin
readln(t2,st);
for i:=1 to length(st) do
write(st[i]);
writeln( );
end;
close(t);
close(t2);
end.

uses Crt;
const rz=[' ',',','.',';',':','?','!'];
      lb=['A'..'Z','a'..'z'];
var f,f1:text;
    s,s1,s2:string;
    i,j,k,p:byte;
begin
assign(f,'T1.txt');
reset(f);
assign(f1,'T2.txt');
rewrite(f1);
while not eof(f) do
 begin
  readln(f,s);
  //преобразуем строку к виду  слово,слово,слово,
  s:=s+',';//добавим запятую в конец
  for i:=1 to length(s) do
  if s[i] in rz then s[i]:=',';//заменим все разделители на запятые
  while pos(',,',s)>0 do delete(s,pos(',,',s),1); //удалим повторяющиеся запятые
  s2:='';
  while pos(',',s)>0 do //пока есть запятые
   begin
    s1:=copy(s,1,pos(',',s)-1);//копируем первое слово
    k:=0;
    for j:=1 to length(s1) do
    if s1[j] in lb then k:=k+1;//считаем в слове латинские
    if k=length(s1) then  s2:=s2+' '+s1;//если все, в новую строку
    delete(s,1,pos(',',s)); //удаляем, следующее первое
   end;
  writeln(f1,s2); //строку в новый файл
 end;
close(f);
close(f1);
write('Слова из латинских букв переписаны из файла Т1 в файл Т2');
end.