Записи и файлы

[sourcer]

Друзья, не могли бы вы помочь переделать прогу, чтобы решала через записи.
Вот что я сделал:
var
f:text;
names:array[1..100] of string;
counts:array[1..100] of integer;
i,n:integer;
s:string;
begin
assign(f,'c:\auto.txt');
reset(f);
n:=0;
while not eof(f) do begin
readln(f,s);
if pos(' ',s) > 0 then s:=copy(s,1,pos(' ',s)-1);
i:=n;
while (i>0) and (names[i]<>s) do dec(i);
if i=0 then begin
inc(n);
names[n]:=s;
counts[n]:=1;
end else begin
inc(counts[i]);
end;
end;
for i:=1 to n do writeln('Ia?ea ',names[i],' eiee?anoai ',counts[i]);
end.


задание:
дан файл, содержащий инфу об автомобиле: марку, номер и фамилию владельца. найти количество авто каждой марки.