Программка на Pascal'e. Записи

[Lerrout]

Приветствую обитателей сего форума. Бьюсь с задачей уже пару дней, и озарение пока что никак не приходит...
Условие:

Сведения об автомобиле состоят из: марки, номера, фамилии владельца. Найти и вывести точное количество авто каждой марки.

Мои наработки...

program hw1;
uses crt;

type auto = record
 model: string;
 number: string;
 owner: string;
end;

var
car: array [1..100] of auto;
i, n, l: integer;
st: string;
begin
 clrscr;
 l:=0;
 writeln('Enter numbers of counters (max = 100):');
 readln(n);

  for i:=1 to n do
   begin
    writeln('Enter model of car ',i);
    readln(car[i].model);
    writeln('Enter number',i);
    readln(car[i].number);
    writeln('Enter owner',i);
    readln(car[i].owner);
   end;

    writeln('Enter complete');
    writeln;
    st:=car[1].model;

   //здесь мои тугодумства и заканчиваются :DD
   readkey;
   end.

В основном затруднения вызывает количество марок - в новые переменные их не запишешь, а цикл с обнулением счетчика у меня не клеится... :\
Заранее благодарю за помощь, если таковая все же окажется.

[weech]

Попробуйте так:

a:array [1..100, 1..2] of string;
... 
for i:=1 to 100 do
    for j:=1 to 100 do
        if a[j,1]=car[i].model
           then a[j,2]:=IntToStr(StrToInt(a[j,2])+1)
           else a[j,1]:=car[i].model;
for i:=1 to 100 do
writeln('Марка ',a[i,1], ' встречается ',a[i,2],' раз.');