Дан массив данных о клиентах фирмы по прокату - Pascal ABC - Ответ 4408249

uses crt;
const nmax=20;
type klient=record
            fam:string[20];
            nam:string[20];
            otc:string[20];
            adr:record
                ulc:string[20];
                dom:integer;
                kvr:integer;
                end;
            prd:string[20];
            end;
var a,b:array[1..nmax] of klient;
    n,i,k:byte;
begin
repeat
write('Количество клиентов от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите данные');
for i:=1 to n do
 begin
  writeln('Клиент ',i);
  with a[i] do
   begin
    write('Фамилия: ');read(fam);
    write('имя: ');read(nam);
    write('отчество: ');read(otc);
    writeln('Адрес');
    write('улица:');read(adr.ulc);
    write('дом: ');read(adr.dom);
    write('квартира: ');read(adr.kvr);
    write('какой предмет взял: ');read(prd);
   end;
 end;
 clrscr;
 writeln('Список клиентов:');
 writeln('-----------------------------------------------------------------');
 writeln('|       Фамилия И.О.       |       Адрес       |     Предмет    |');
 writeln('-----------------------------------------------------------------');
 for i:=1 to n do
 with a[i] do
  begin
   gotoXY(1,whereY);write('| ',fam,' ',nam,' ',otc);
   gotoXY(28,whereY);write('| ',adr.ulc,' ',adr.dom,'-',adr.kvr);
   gotoXY(48,whereY);write('| ',prd);
   gotoXY(65,whereY);writeln('|');
  end;
writeln('-----------------------------------------------------------------');
write('Нажмите Enter для продолжения');
readln;
writeln('Список взявших телевизор');
writeln('-----------------------------------------------------------------');
 writeln('|       Фамилия И.О.       |       Адрес       |     Предмет    |');
 writeln('-----------------------------------------------------------------');
k:=0;
for i:=1 to n do
if a[i].prd='телевизор' then
 begin
  k:=k+1;
  b[k]:=a[i];
  with b[i] do
   begin
    gotoXY(1,whereY);write('| ',fam,' ',nam,' ',otc);
    gotoXY(28,whereY);write('| ',adr.ulc,' ',adr.dom,'-',adr.kvr);
    gotoXY(48,whereY);write('| ',prd);
    gotoXY(65,whereY);writeln('|');
   end;
 end;
writeln('-----------------------------------------------------------------');
if k=0 then write('Взявших телевизор нет')
end.