Переписать в текстовый файл Т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.