procedure mark;
var mar: array [1..100] of Tbook;
    kol: array [1..100] of integer;
    mass:array[1..100] of Tbook;
    a: file of Tbook;
    i,j,k,d: integer;
    z: Tbook;
begin
         clrscr;
          assign(a,'a.dat');
           massiv(a,mass,k);
i:=0; k:=0;
reset(a);
while not eof(a) do
      begin
      read(a,z);
      with z do
           begin
           k:=0;
           for j:=1 to i do
               if mass[j].marka=mass[i].marka then inc(k);
           if k=0 then
              begin
              inc(i);
              mass[i].marka:=mass[j].marka
              end;
           end;
      end;
reset(a);
d:=i;
while not eof(a) do
      begin
      read(a,z);
      with z do
           for i:=1 to d do
               if mass[i].marka=mass[j].marka then inc(kol[i]);
      end;
writeln('Êîëè÷åñòâî àâòîìîáèëåé êàæäîé ìàðêè:');
for i:=1 to d do
    writeln(mass[i].marka,'-',kol[i]);
writeln;
close(a);

end;
end.

{Процедура massiv записывает данные из файла в массив}