как изменить программу что бы выводилось количество цифр в каждой строке отдельно?

[Blackyy]

Здравствуйте!

есть программа которая ищет количество цифр в тексте. Что нужно изменить в программе что бы выводилось количество цифр в каждой строке отдельно?

var
f1:text;
i, f: integer;
str: string;

begin
assign(f1,'c:\111.txt');
reset(f1) ;

while not eof(f1) do begin
readln(f1,str);
for i:=1 to length(str) do begin
if (ord(str[i]) > 47) and (ord(str[i]) < 58) then inc(f);
end;
end;
writeln(f);
close(f1);
end.


Заранее благодарна!

[Mad_Cat]

var
f1:text;
i, f: integer;
str: string;

begin
assign(f1,'c:\111.txt');
reset(f1) ;

while not eof(f1) do begin
readln(f1,str);
f:=0;
for i:=1 to length(str) do begin
if (ord(str[i]) > 47) and (ord(str[i]) < 58) then inc(f);
end;
writeln(f);
end;

close(f1);
end.

[Blackyy]

Спасибо!