Записи. Записная книжка.

type slovo=array[1..9]of char;
     NumberTelephone=1000000..9999999;
     friend=record
            surname:slovo;
            num:nt;
            end;
     page=array[1..20] of friend;
     notebook=array['A'..'Z'] of page;

program l5z4;
uses crt;
type slovo=array[1..9]of char;
     nt=1000000..9999999;
     friend=record
            sname:slovo;
            num:nt;
            end;
     page=array[1..20] of friend;
     nbook=array['A'..'Z'] of page;
 var cbuf,c:char;
     b:nbook;
     fr:friend;
     p:page;
     i,j,k,l:integer;
     kor:slovo;
     tn:nt;
     f:text;
function nomer(s:nbook;t:slovo;var tn:nt):integer;    
begin
 l:=1;
 for cbuf:='A' to 'Z' do
  begin
   if t[1]=cbuf then
    c:=t[1];
  end;
  p:=s[c];
   for i:=1 to 20 do
    begin
     for j:=1 to 9 do
      if friend.sname[j]=kor[j] then
       l:=l*1
      else
       l:=l*0;
    end;
   if l=1 then
    tn:=friend.num;
  nomer:=1;
end;
procedure dop(f:text;c:char);       
begin
 with b[c] do  // знаю что так нельзя, но не в курсе как работать со сложенными один в один массивами
  begin
   for p:=1 to 20 do
    while not eof do
     begin
      j:=1;
      k:=1;
      while not eoln do
       begin
        if friend.sname[j]<>':' then          
         begin
          read(f,friend.sname[j]);
          inc(j);
         end
        else
         begin
          inc(j);
          read(f,friend.num[k]);
          inc(k);
         end;
       end;
     end;
  end;
end;
begin
 clrscr;
 assign (f,'c:/tex.txt');
 reset(f);
 for cbuf:='A' to 'Z' do
  dop(f,cbuf);
 writeln('Enter surname of friend');
 for i:=1 to 9 do
  read(kor[i]);
 k:=nomer(b,kor);
 writeln('Nomer:',tn);
 readkey;
end.

type friend=record
     surname:string;
     number:longint;
     end;
     allfr=array[1..20]of friend;
var af:allfr;
    i:integer;
    s:string;
function nomer(kor:string):longint;
var i:integer; flag:boolean;
begin
flag:=false;
for i:=1 to 20 do
if af[i].surname=sn then
begin
     flag:=true;
     nomer:=af[i].number;
end;
if flag=false then nomer:=0;
end;
begin
writeln('Введите фамилию');
readln(s);
if nomer(s)=0 then writeln('Данной фамилии не обнаружено!') else
writeln('Телефонный номер: ',nomer(s));
end.

uses crt;
type
slovo=packed array[1..9]of char;
telefon=1000000..9999999;
person=record
       family:slovo;
       number:telefon;
       end;
page=array[1..20]of person;
bloknot=array['A'..'Z']of page;
function Number(z:bloknot;f:slovo;var n:telefon;k:byte):boolean;
var i:char;
    j:byte;
begin
Number:=false;
for i:='A' to 'Z' do
for j:=1 to k do
if z[i][j].family=f then
 begin
  Number:=true;
  n:=z[i][j].number;
  break;
 end;
end;
var zap:bloknot;
    fm:slovo;
    n:telefon;
    i,c:char;
    j,k:integer;
    a:array['A'..'Z'] of byte;
begin
clrscr;
writeln('Vvedite dannye:');
for i:='A' to 'Z' do
 begin
  writeln('Zapishite familii na bukvu ',i);
  write('Kolichestvo familij=');
  readln(a[i]);
  writeln('CVvedite dannye, okonchanie Esc:');
  for j:=1 to a[i] do
   begin
     writeln(' Telefon ',j);
     repeat
     write('  Family: ');
     k:=1;
     while k<9 do
      begin
       read(fm[k]);
       k:=k+1;
      end;
     readln;
     until fm[1]=i;
     zap[i][a[i]].family:=fm;
     write('  Nomer telefona: ');
     repeat
     readln(zap[i][a[i]].number);
     until (zap[i][a[i]].number>99999)and(zap[i][a[i]].number<10000000);
   end;
 end;
clrscr;
writeln('Vvedite familiyu dlya poiska:');
for j:=1 to 9 do
read(fm[j]);
readln;
for j:=1 to a[fm[1]] do
Number(zap,fm,n,k);
if not Number(zap,fm,n,k) then
write('Nomer telefona ',zap[fm[1]][j].number)
else write('Takoj familii net!');
readln
end.