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

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

Очень срочно, завтра сдавать... помогите:

Текстовые файлы Напишите процедуру SeekFun(f), которая находит в файле, содержащем текст программы на Паскале, идентификаторы функций.

В файле *.* содержатся записи, имеющие следующую структуру: group :integer; memo: string;

а)

. Выведите на устройство Con все записи с полем memo, содержащим только русский текст

б)

. Запишите в бинарный файл все записи с полем memo, содержащим цифры

type ref = ^integer; vector = array[1..17] of ref; Описать процедуру unique(x), которая в векторе x все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов

не то, вот нужное : Описать функцию zero1(x), значением которой является первый из элементов вектора x, ссылающихся на число 0, или nil, если таких элементов нет

еще нужно

2.б

, если кому интересно:

program twentyone;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var  F,F1:File;
      Group,i:Integer;
      Memo,Memo1,Memo2 :String;
 
Procedure Create(Var F:File);
var L:Byte;
begin
  ReWrite(F,1);
  Write('Vvedite ',#252,' gruppy : ');
  ReadLn(Group);
  Write('Zapolnite pole "Memo" : ');
  ReadLn(Memo);
  L:=Length(Memo);
  BlockWrite(F,Group,2);
  BlockWrite(F,L,1);
  BlockWrite(F,Memo,L);
 
  Write('Vvedite ',#252,' gruppy : ');
  ReadLn(Group);
  Write('Zapolnite pole "Memo" : ');
  ReadLn(Memo1);
  L:=Length(Memo1);
  BlockWrite(F,Group,2);
  BlockWrite(F,L,1);
  BlockWrite(F,Memo1,L);
 
  Write('Vvedite ',#252,' gruppy : ');
  ReadLn(Group);
  Write('Zapolnite pole "Memo" : ');
  ReadLn(Memo2);
  L:=Length(Memo2);
  BlockWrite(F,Group,2);
  BlockWrite(F,L,1);
  BlockWrite(F,Memo2,L);
  Close(f);
end;
 
Procedure OutPut(Var F:File);
var L:Byte;
begin
  Reset(F,1);
  While not Eof(F) do
  begin
    Blockread(F,Group,2);
    Blockread(F,L,1);
    Blockread(F,Memo,L);
    WriteLn('Gruppa : ',Group);
    WriteLn('Pole Memo : ',Memo);
  end;
  Close(F);
end;
 
Procedure OutPutMemo(Var F,F1:File);
Var L,k:Byte;
begin
  Reset(F,1);
  ReWrite(F1,1);
  While not Eof(f) do
  begin
    BlockRead(F,Group,2);
    BlockRead(F,L,1);
    BlockRead(F,Memo,L);
    k:=0;
    For i:=1 to Length(Memo) do
      begin
      case Memo[i] of
      #48..#57 : Inc(k);
      end;
    end;
    If Length(Memo)=k then
    begin
      BlockWrite(F1,Group,2);
      BlockWrite(F1,L,1);
      BlockWrite(F1,Memo,L);
    end;
  end;
  Close(F);
  Close(F1);
end;
 
Begin
  Assign(f,'1.txt');
  Assign(f1,'2.txt');
  Create(F);
  OutPut(F);
  OutPutMemo(F,F1);
  WriteLn;
  WriteLn('Zapisi s russkimi simvolami : ');
  OutPut(F1);
  Erase(F);
  ReName(F1,'1.txt');
  ReadLn;
End.

Решение задачи: «Найти в файле, содержащем текст программы на Паскале, идентификаторы функций.»

Листинг программы

program six;
 
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const n=17;
Type Ref = ^Integer;
     Vector=array[1..n] of Ref;
 
Var x:Vector;
    i:Integer;
 
Procedure InPut(Var x:Vector);
begin
  For i:=1 to n do
  begin
    New(x[i]);
    x[i]^:=Random(10)+1;
  end;
end;
 
Procedure OutPut(x:Vector);
begin
  For i:=1 to n do
  If x[i]<>Nil Then WriteLn(x[i]^)
  else WriteLn('Nil');
end;
 
Function Zero(x:Vector):integer;
var r:integer;
    b:boolean;
begin
  r:=0;
  For i:=1 to n do
  If x[i]^=0 Then
  begin
  r:=i;
    b:=True;
    Break;
  end;
  if r=0 then r:=x[1]^;
  Zero:=r;
end;
 
Begin
  Randomize;
  InPut(x);
  OutPut(x);
  WriteLn;
  WriteLn('Result : ',Zero(x));
  ReadLn;
End.

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

Объявление переменных и процедур для работы с вектором (массивом) и выполнения операций ввода-вывода.
Инициализация переменных и выполнение операций ввода-вывода для заполнения вектора случайными числами.
Вывод содержимого вектора на экран.
Определение функции для поиска индекса первого нулевого элемента в векторе.
Выполнение операций ввода-вывода для вывода результата на экран.