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

Формулировка задачи:

всем привет^_^, препод задал дамашек, 1 я сделал другую не могу ни как, осилить, хотя и алгоритм придумал. как устроен мой алгоритмЖ программа находит строку со словом 'function' затем копирует с первого символа до скобки(copy(s,1,pred(pos('(',s)))); затем бивает индетификатор функции в массив. вроди сделал все как задумал в алгоритме, но чет ничаго не выводит, помогите плз^_^. Зарание спс. Ps: если можно нарисуйте к ней блок схему, я толком не учил а щас уже времени не хватает>_<

{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.

Объяснение кода листинга программы

Объявление переменных:
- i: integer (указывается тип данных переменной i)
- f: text (указывается тип данных переменной f)
- s, l: string (указываются типы данных переменных s и l)
Установка пути к файлу:
- Assign(f, 'D:\1.txt') (переменная f ссылается на файл 'D:\1.txt')
Открытие файла:
- Reset(f) (файл открывается для чтения)
Чтение файла:
- while not eof(f) do (цикл выполняется до тех пор, пока не достигнут конец файла)
- readln(f, s) (читается строка из файла и сохраняется в переменной s)
Поиск идентификаторов функций:
- if pos('function', s) <> 0 then (если в строке есть слово function, то выполняется блок кода)
  - l := copy(s, pos('function', s), pos('(', s)-1) (создается новая строка l, которая содержит имя функции без скобок)
  - writeln(copy(l, pos(' ', s)+1, length(l))) (выводится имя функции на экран)
Закрытие файла:
- Close(f) (файл закрывается)
Завершение программы:
- end. (конец программы)