pascal, программа на подсчет в текстовом файле количества слов, состоящих из четырех букв

[Катя Миронова]

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

 program one;
 var
 f:text;
 i,n:integer;
 s:string;
 function num(s:string):integer;
 var i,k:integer;
 temp:string;
 begin
 k:=0;
 for i:=1 to length(s) do
 if s[i]<>' ' then temp:=temp+s[i];
 if s[i]=' ' then
 begin
 if length(temp)=4 then K:=k+1;
 temp:=' ';
 end;
 num:=k;
 end;
 begin
 assign(f,'C:\FPC\2.6.0\bin\i386-win32\f.txt');
 reset(f);
 read(f,s);
 s:=' '+s+' ';
 for i:=1 to length(s) do
 n:=num(s);
 write('n=',n);
 readln;
 close(f);
 end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[SL1M_DOGG]

num:=k;

может я что то не понимаю, но как можно функции присваивать значение переменной?

[Катя Миронова]

а какое значение присвоить функции в конце?

[GetMax]

Функция должна выглядеть так

function num(s:string):integer;
var i,k:integer;
temp:string;
begin
k:=0;
temp:='';
i:=1;
for i:=1 to Length(s) do
Begin
  if s[i]<>' ' then temp:=temp+s[i];
  if s[i]=' ' then
  Begin
    if length(temp)=4 then K:=k+1;
    temp:='';
  End;
End;
num:=k;
end;

for i:=1 to length(s) do
n:=num(s);

Это что такое? Убирайте пока никто не видел. У вас есть строка, считанная из файла. ее и передавайте в функцию один раз

 n := num(s);