Посчитать количество пробелов в каждой строке текстового файла, используя процедуру

Program lab_8 (input, output);
Type
Tst=string[80];
Var
F1:text;
Str:string[80];
Kp:array[1..4] of integer;
i:integer;
procedure probil (r9dok:tst; var n:integer);
begin
n:=0;
if r9dok [i]=’ ‘ then n:=n+1;
end;
begin
assign (F1,’E\pascal\F1.Pas’);
reset (F1);
begin
readln (F1,str);
probil (str[i],kp[i]);
writeln (‘rezyltat kp:’);
for i:=1 to 4 do
writeln (‘Y ’, I, ‘ r9dky je ‘, kp[i],’ probiliv’);
close(F1);
end;
end.

procedure probel(stroka:string; var j:shortint);
Var a:shortint;
begin
for a:=1 to length(stroka) do
begin if stroka[a]=' '
then inc(j);
end;
end;
Var a:text; i:shortint;  filename,stroka:string;
begin
i:=0;
Writeln('Vvedite ima faila');
readln(filename);
assign(a,filename);
reset(a);
while not eof(a) do
begin
readln(a,stroka);
probel(stroka,i);
end;
writeln('Probelov ',i);
readln;
end.

procedure probel(stroka:string; var j,i:shortint);
Var a:shortint;
begin
for a:=1 to length(stroka) do
begin if stroka[a]=' '
then inc(j);
end;
Writeln('V ',i ,' stroke ',j,' probelov');
inc(i);
j:=0;
end;
Var a:text; i,j:shortint;  filename,stroka:string;
begin
i:=0;
j:=1;
Writeln('Vvedite ima faila');
readln(filename);
assign(a,filename+'.txt');
reset(a);
while not eof(a) do
begin
readln(a,stroka);
probel(stroka,i,j);
end;
readln;
end.