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

[volchica]

Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.
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.

[volchica]

что нетак?

[New man]

акакие ашибки выдает

[volchica]

if length(st) in a then begin
в этой строчке-нельзя преобразовать фыражение типа set of char к типу string! там что то с типоми нетак это точно