Написать программу, работающую с массивом записей даных абонентов

uses crt;
const n=15;
      zagl='                        Данные об абонентах ';
      line='--------------------------------------------------------------------';
      shap='|   Фамилия  |     Имя    |         Адрес        |     Телефон     |';
 
type abonents = record
     fam:  string[10];
     nam:  string[10];
     adr:  string[20];
     tel:  string[15];
     end;
 
var a:array [1..n] of abonents;
    i,k,r:integer;
    s: string;
 
begin
writeln('Внесите данные об абонентах: ');
for i:=1 to n do
    with a[i] do
         begin
         write('Фамилия ',i,' абонента: '); readln(fam);
         write('Имя: '); readln(nam);
         write('Адрес: '); readln(adr);
         write('Номер телефона: '); readln(tel);
         end;
clrscr;
for i:=1 to n do
    with a[i] do
    begin
    if i mod 10=0 then
       begin
       writeln('press Enter to continue...');
       readln;
       end;
    if i mod 10=1 then
       begin
       clrscr;
       writeln(zagl);
       writeln(line);
       writeln(shap);
       end;
    writeln(line);
    writeln('|',fam:10,'|':3,nam:10,'|':3,adr:20,'|':3,tel:15,'|':3);
    end;
writeln(line);
r:=1;
repeat
writeln('1-поиск по фамилии');
writeln('2-выход');
readln(r);
if r=1 then
   begin
   clrscr;
   write('Фамилия: ');
   readln(s);
   for i:=1 to n do
       with a[i] do
            if fam=s then
               begin
               inc(k);
               if k=1 then
                  begin
                  writeln(zagl);
                  writeln(line);
                  writeln(shap);
                  end;
               writeln(line);
               writeln('|',fam:10,'|':3,nam:10,'|':3,adr:20,'|':3,tel:15,'|':3);
               end;
     writeln(line);
     if k=0 then writeln('Данные об абонентах отсутствуют') else
     writeln('Всего ',k,' абонент (а/ов)');
   end;
until r<>1;
readln;
end.