Здравствуйте! написал тут программку:

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('Марка  ',names[i],' количество ',counts[i]);
end.

помогите, пожалуйста реализовать через записи!

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

Записи. Record.

Добавлено через 1 мин.
Файлы