Переписать в текстовый файл Т2 содержимое текстового файла Т1 без строк, содержащих цифры (Паскаль)

Var s: string;

f1, f2: text;

i, k: integer;

begin

assign (f1,'T1. txt') ;

reset (f1) ;

assign (f2,'T2. txt') ;

rewrite (f2) ;

while not eof (f1) do

begin

k:=0;

readln (f1, s) ;

for i:=1 to length (s) do

if s[i] in ['0' ... '9'] then

begin

k:=1;

break;

end;

if k=0 then writeln (f2, s) ;

end;

close (f1) ;

close (f2) ;

end.