Помогите оптимизировать программу

Есть задача:
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий сведения о нескольких автомобилях, после чего определить количество автомобилей каждой марки.

Задача в принципе решена, но при запуске есть повторения моделей, помогите избавиться от этих повторений.

program cars;
uses crt;
Type z=record
fam: string[30];
marka: string [15];
nomer: string [7];
end;
var
f:file of z;
n,i,m,k,c,j: integer;
model: string [15];
mas:array [1..10] of z;
Begin
clrscr;
writeln ('Vvedite kol-vo maschin');
readln (n);
assign (f, '1.txt');
rewrite (f);
for i:=1 to n do
begin
writeln ('vvedite familiyu ',i,' vladelca');
readln (mas.fam);
writeln ('vvedite marku ',i,' mashini');
readln (mas.marka);
writeln ('vvedite nomer ',i,' mashini');
readln (mas.nomer);
write (f,mas);
end;
close (f);
writeln;
assign (f,'1.txt');
reset (f);
i:=0;
k:=0;
while not EOF(f) do
begin
i:=i+1;
read (f,mas);
end;
c:=i;
for i:=1 to c do begin
model:=mas.marka;
for j:=1 to c do if(mas[j].marka=model) then k:=k+1;
writeln('kol-vo ',model,'=',k);
k:=0;
end;

close (f);
readln;
End.