Допишите программу - Pascal ABC - Ответ 3220507

TYPE
Cars=Record
Fam:String[50];
Addres:String[50];
Nomer:String[7];
Marka:String[20];
End;
VAR
i,ii:integer;
Baza:Array[1..50] of Cars;
k,z,f:byte;
Stroka:String;
BEGIN
k:=0;
WriteLn('Ñêîëüêî áóäåì äåëàòü çàïèñåé, ×òîá âûéòè íàæìèòå "0". (Ìàêñèìóì 50) ?');
readln(z);
if z=0 then Exit;
For i:=1 to z do
Begin
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;
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(i);
END.