Линейный список: картотека абонентов междугородной телефонной станции

const
  nmax=100;
type
  phone=record
    name: string;
    nmb : integer;
  end;
var
  a: array[1..nmax] of phone;
  tm1,tm2,i,n,m,rub,cop: integer;
begin
  write('Сколько абонентов в картотеке? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
      begin
      write('Введите фамилию абонента: ');
      readln(name);
      repeat
        write('Введите 6-ти значный номер телефона абонента: ');
        readln(nmb);
      until nmb in[100000..999999];
    end;
  writeln;
  writeln('|-----------------------------------------------|');
  writeln('|             КАРТОТЕКА  АБОНЕНТОВ              |');
  writeln('|-----------------------------------------------|');
  writeln('|     Ф. И. О.                |     Телефон     |');
  writeln('|-----------------------------------------------|');
  for i:=1 to n do
    with a[i] do
    begin
      write('|  ',name,' ':20-length(a[i].name));
      writeln('       | ',nmb:13,'   |');
      writeln('|-----------------------------------------------|');
    end;
  writeln;
  
  write('Введите номер расчитываемого абонента: ');
  repeat
    readln(m);
  until m in [100000..999999];
  write('Введите время разговора (минуты, секунды через пробел): ');
  repeat
    readln(tm1,tm2);
  until (tm1 in [1..59])and(tm2 in [1..59]);
  writeln('Секунда разговора стоит 5 копеек');
  tm1:=tm1*60+tm2;
  rub:=tm1*5 div 100;
  cop:=tm1*5 mod 100;
  for i:=1 to n do
    if a[i].nmb=m then writeln
      ('С абонента ',a[i].name,' взимается плата ',rub,' руб. ',cop,' коп.')
        else writeln('Данный абонент не зарегестрирован в картотеке');
  readln;
end.

uses crt;
type  PList = ^TList;
  TList = record
    nmb: integer;
    name: string[20];
    next: PList;
  end;
  
procedure addAb(var head: plist; dob: integer;n: string[20]);
var
  cur: plist;
begin
  new(cur);
  cur^.next := head;
  cur^.nmb := dob;
  cur^.name:=n;
  head := cur;
end;
 
var
  tm1,tm2,i,n,m,rub,cop,nmb: integer;
  name: string[20];
  head,f: PList;
  b: boolean;
begin
  b:=false;
  write('Сколько абонентов в картотеке? ');
  readln(n);
  for i:=1 to n do
      begin
      write('Введите фамилию абонента: ');
      readln(name);
      write('Введите 6-ти значный номер телефона абонента: ');
      readln(nmb);
      addab(head,nmb,name);
    end;
  f:=head;
  writeln;
  writeln('|-----------------------------------------------|');
  writeln('|             КАРТОТЕКА  АБОНЕНТОВ              |');
  writeln('|-----------------------------------------------|');
  writeln('|     Ф. И. О.                |     Телефон     |');
  writeln('|-----------------------------------------------|');
  for i:=1 to n do
    begin
      write('|  ',f^.name,' ':20-length(f^.name));
      writeln('       | ',f^.nmb:13,'   |');
      writeln('|-----------------------------------------------|');
   f:=f^.next;
   end;
  writeln;
  
  write('Введите номер расчитываемого абонента: ');
  readln(m);
  write('Введите время разговора (минуты, секунды через пробел): ');
  repeat
    readln(tm1,tm2);
  until (tm1 in [1..59])and(tm2 in [1..59]);
  writeln('Секунда разговора стоит 5 копеек');
  tm1:=tm1*60+tm2;
  rub:=tm1*5 div 100;
  cop:=tm1*5 mod 100;
  for i:=1 to n do
   begin 
    if head^.nmb=m then
     begin
     writeln('С абонента ',head^.name,' взимается плата ',rub,' руб. ',cop,' коп.');
      b:=true;
     end;
    head:=head^.next;
    end;
  if b=false then
   writeln('Данный абонент не зарегистрирован в картотеке');
  readln;
end.