Проблема в решении задачи в Delphi :(

[Олег9559]

Ребят,помогите пожалуйста!
В чём суть:нужно сделать программу наподобие этой,только чтобы вместо чисел с цифрами она считала количество трёхзначных чисел в каждом ряду и в конце выдала сколько всего таких чисел.Вот программа
program Project1;


{$APPTYPE CONSOLE}

uses
SysUtils;

Var f:textfile;
a,dlina,t:integer;
n,i,j,y,l:byte;
{m: set of char; }
{t:set of char; }
st,stmax,sl:string[80];
begin
{ TODO -oUser -cConsole Main : Insert code here }
assignfile(f,'oy.txt');
rewrite(f);
n:=4;{ k:=0; }
Writeln ('Vvedite 4 stroki');
t:=0;
for i:=1 to n do
begin
Writeln ('stroka ',i);
readln(st);
writeln(f,st); {Nicaai oaee ec 4 no?ie}



repeat
a:=pos(' ',st);
sl:=copy(st,1,a-1);
dlina:=length(sl);
for j := 1 to dlina - 1 do
if (sl[j]='0') or (sl[j]='1') or(sl[j]='2') or(sl[j]='3') or(sl[j]='4') or(sl[j]='5') or(sl[j]='6') or(sl[j]='7') or(sl[j]='8') or (sl[j]='9')
then inc(t);
delete(st,1,a);
until st='';
end;
Closefile(f);
writeln;
writeln('slov s ciframi ',t);
writeln;
Writeln('Text file sozdan');
{ rewrite (f);}
reset (f);
while not eof (f) do
begin
readln (f,st);
writeln(st);
end;
closefile(f);

readln;
end.

ЗЫ. Один недочёт:эта программа правильно не считает кол-во слов с цифрами,если кто может подскажите где ошибся и помогите сделать новую программу!!!Заранее спасибо.