Дан массив данных о клиентах

program r1;
{Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом, квартира) и
 что взял (только один предмет). Во второй массив записать данные только тех из них, кто взял телевизор.}
uses
  crt;
const
  Nmax = 256;  
type
  adr = record
  ul : string[15];
  dom, kvart : byte;
  end;
  DataKl = record
  familia, imya, otch : string[15];
  adres : adr;
  vzyal : string[15];
  end;
var
  a, b : array[1..Nmax] of DataKl;
  i, j, k : byte;
  c : char;
begin
  clrscr;
  i := 0;
  repeat
     inc(i);
     with a[i] do
      begin
       write('Фамилия : ');
       readln(familia);
       write('Имя : ');
       readln(imya);
       write('Отчество : ');
       readln(otch);
       writeln('Адрес');
       write('Улица : ');
       readln(adres.ul);
       write('Дом, квартира (через пробел) : ');
       readln(adres.dom, adres.kvart);
       write('Предмет в прокат : ');
       readln(vzyal);
      end;
     write('Esc - выход/Eny key - продолжить : '); 
     c := readkey;
     writeln;    
  until (i>=Nmax) or (c=#27);
  k := 0;
  for j := 1 to i do
    if a[j].vzyal = 'телевизор' then
      begin
        inc(k);
        b[k] := a[j];
      end;
  for i := 1 to k do
    with b[i] do begin
      writeln('Фамилия : ',familia);
      writeln('Имя : ',imya);
      writeln('Отчество : ',otch);
      writeln('Улица',adres.ul);
      writeln('Дом, квартира : ',adres.dom,'  ',adres.kvart);
      writeln('Предмет в прокат : ',vzyal);
    end;
  readln;
end.