Создать файл автовладельцев. Для каждого автовладельца известны: номер, марка автомобиля, фамилия и адрес. Написать программу, выясняющую, есть ли автовладельцы, имеющие более одного автомобиля- Pascal(Паскаль)

PROGRAM ZD2;
USES
 Crt;
CONST
 S1='Автовладельцев имеющих больше одного автомобиля НЕТ.';
TYPE
 Cars=Record
        Fam:String[50];
        Addres:String[50];
        Nomer:String[7];
        Marka:String[20];
      End;
VAR
 i,ii:word;
 Baza:Array[1..50] of Cars;
 k,z,f:byte;
 Stroka:String;
BEGIN
 ClrScr;
 k:=0;
 WriteLn('Сколько будем делать записей, Чтоб выйти нажмите "0". (Максимум 50) ?');
 ReadLn(z);
 if z=0 then Exit;
 For i:=1 to z do
   Begin
     ClrScr;
     WriteLn('Запись № ',i,'.');WriteLn;
     Write('    Введите фамилию. (Максимум 50 букв): ');
     ReadLn(Baza[i].Fam);
     Write('    Введите адресс. (Максимум 50 букв): ');
     ReadLn(Baza[i].Addres);
     Write('    Введите номер машины. (Максимум 7 букв): ');
     ReadLn(Baza[i].Nomer);
     Write('    Введите марку машины. (Максимум 20 букв): ');
     ReadLn(Baza[i].Marka);
   End;
 ClrScr;
 WriteLn('Список автовладельцев, у которых более одного автомобиля:');
 WriteLn;
 For i:=1 to z do
   Begin
     Stroka:=Baza[i].Fam;
     For ii:=1 to z do
       If Stroka=Baza[ii].Fam then inc(k);
     If k>=2 then
       Begin
         WriteLn('Запись № ',i,'.');WriteLn;
         Write('    ',Baza[i].Fam);
         Write('    ',Baza[i].Addres);
         Write('    ',Baza[i].Nomer);
         WriteLn('    ',Baza[i].Marka);
         WriteLn;
         f:=1;
       End;
     k:=0;
   End;
 if f=0 then WriteLn(S1);
 GoToXY(20,24);
 Write('Нажмите любую клавишу для выхода…');
 ReadKey;
 ClrScr;
END.