Сведенья об автомобиле состоит из его марки, номера и фамилии владельца. Дан файл f, содержащий сведенья о 10 авто.Найти количество авто каждой марки и вывести на экран

Первая часть вышла, а дальше никак....(
Program Tip;
Uses
Crt;
Type
Cars=record

marka,fio : string;
nomer : integer;
End;
Var

Spisok : file of Cars;
KK : Cars;
Name : string[12];
Procedure VvodZap (k : integer);
Begin
with KK do
begin
writeln('vvedite dannie ',k,' mashini');
write('marka: ');
readln(marka);
write('nomer:');
readln(nomer);
write('familiya:');
readln(fio);

write(Spisok ,KK);
end;
End;
Procedure FileVvod;
Var
i,k : Integer;
Begin
write('vvedite imya fayla:');
readln(Name);
assign(Spisok ,Name);
rewrite(Spisok );
write('vvedite kolichestvo mashin:');
readln(k);
for i:=1 to k do
VvodZap(i);
close(Spisok );
readln;
End;

Begin
ClrScr;
FileVvod;
readLn;
End.