CountFunc(f), которая определяет, сколько раз в файле встретилось слово "function".

[ArtS]

Функции
Напишите функцию CountFunc(f), которая определяет, сколько раз в файле встретилось слово "function".

[__STDC__]

Написал. Что дальше? Командуй, мой капитан.

[ArtS]

Мне нужна сама эта функция.

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

[__STDC__]

function countfunc(f:string):integer;
var
	i:integer;
	str:string;
begin
	countfunc := 0; i := 1;
	str := '';
	while (i <= length(f)) do 
		if (f[i] in ['a'..'z']) then begin
			str := str+f[i];
			inc(i);
		end
		else begin
			if (str = 'function') then
				inc(countfunc);
			str := '';
			delete(f,1,i);
			i := 1;
		end;
end;

procedure getline(filename:string);
var
	f:text;
	tmp:string;
	num:integer;
begin
    num := 0;
	assign(f,filename);
	reset(f);
	while not(EOF(f)) do begin
		readln(f,tmp);
		num:= num+CountFunc(tmp);
	end;
	close(f);
	writeln(num);
end;

var
	filename:string;
begin
	filename := 'in.txt';
	getline(filename);
	readln;
end.

Переделайте как нужно вас