Встречена процедура, а ожидался оператор - Pascal ABC

program Telefonnaya_kniga;
uses crt;
const n=10;
type
       book=record
             last_name:string[20];
             name:string[10];
             adress:string[30];
             pol:string[7];
             teldom:integer;
            end;
       test=array[1..n] of book;
       Ffile=file of test; {файл для хранения базы}
var f:Ffile;
    b:test;
    t,k,tel:shortint;
    i:byte;
    s:string;
    
procedure SearchTel();
begin
  if k=1 then
  begin
    writeln('Введите телефон');
    readln(tel);
    with b[i] do
    begin
        for i:=1 to n do
        begin
          if teldom=teldom then writeln(last_name,name,teldom,adress,pol);
          if adress=adress then writeln(last_name,name,teldom,adress,pol);
          if pol=pol then writeln(last_name,name,teldom,adress,pol);
        end;
    end;
 end;
end;
procedure SearchFam();
begin
  writeln('Введите фамилию');
  readln(s);
  with b[i] do
  begin
    for i:=1 to n do
    if s=last_name then writeln(last_name,name,teldom,adress,pol);
  end;
end;
procedure Search();
begin
    writeln('Поиск:');
    writeln('По фамилии-1');
    writeln('По телефону-2');
    writeln('Выход-3');
    key:= readkey();
    case key of
      #49 : SearchFam;    
      #50 : SearchTel;
end;
 
procedure Mainmenu();
begin
  assign(f,'test.txt');
  reset(f);
  writeln('Ввод данных-0; поиск-1; сохранение-2; возврат в меню-"3"');
  key:=readkey();
  case key of
    #49 : EnterD;
    #50 : Search;
    #51 : 
end;
procedure HZ()
begin
  writeln('Ввод данных в телефонную книгу:');
  while t<>3 do
  assign(f, 'text.txt');
  rewrite(f);
    with b[i] do begin
      write('Фамилия: ');
      readln(last_name);
      write('Инициалы: ');
      readln(name);
      writeln('Домашний телефон: ');
      readln(teldom);
      writeln('Рабочий телефон 1: ');
      readln(adress);
      writeln('Рабочий телефон 2: ');
      readln(pol);
      writeln;
    end;
  write(f,b);
  end; 
  close(f);
 
begin
  Mainmenu();
end.