Найти в текстовом файле, содержащем текст программы на Паскале, идентификаторы функций

{21.Напишите процедуру SeekFun(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы функций. }
program lol;
uses crt;
type m=array [1..5] of string;
var fv:text;w,s,p:string;
i,k,l:integer;mas:m;
procedure DelSp(var S:string);
begin
     while (S[length(s)]=' ') and (length(S) > 0) do
           delete(S,length(S),1);
     while (S[1]=' ') and (length(S) > 0) do
           delete(S,1,1);
end;
function getword(var s:string):string;
var w:string;
begin
     DelSp(S);
     if Pos(' ',s) > 0 then
     begin
          W:=Copy(S,1,Pred(Pos(' ',S)));
          S:=copy(S,Succ(Pos(' ',S)),255)
     end
     else
         begin
              W:=S;
              S:=''
         end;
     GetWord:=W;
end;
function CountEnd(fv:text;var mas:m):integer;
var w,p:string;I,k,l:integer;
begin
    reset(fv);p:='function';k:=0;l:=0;
    while not eof(fv) do
         begin
              readln(fv,s);
              while s<>'' do
              begin
                   w:=getword(s);if length(w)<=length(p)+1 then
                   begin
                        for i:=1 to length(w) do
                        begin
                             if w[i]=p[i] then inc(k)
                        end;
                        if k=length(p) then inc(l);mas[l]:=copy(s,1,pred(pos('(',s)));k:=0;
                   end;
              end;
         end;
      countend:=l;
      close(fv);
end;
begin
clrscr;
     assign(fv,'çàåçä.pas');
     countend(fv,mas);
end.

Uses
 CRT;
Var
 i:integer;
 f:text;
 s,l:string;
begin
Assign(f,'D:\1.txt');
reset(f);
while not eof(f) do
begin
 readln(f,s);
 if pos('function',s)<>0 then
 begin
  l:=copy(s,pos('function',s),pos('(',s)-1);
  writeln(copy(l,pos(' ',s)+1,length(l)));
 end;
end;
Close(f);
end.