запись, файл Опции

[smith]

Друзья, нужна помощь...

Я написал программу

uses
  Crt;
const
  N = 10;
type
  Auto = record
    Marka: string[10];
    Familiya: string[15];
    Nomer: string[7];
    Count: integer;
  end;

var
  a,b: array [1..N] of Auto;
  i,j,Znach: integer;
  f: boolean;
begin
  ClrScr;
Writeln(‘vvodim zapisi’);
  for i := 1 to N do
  begin
    WriteLn('Zapis #', i);
    Write('Marka: ');
    ReadLn(a[i].Marka);
    Write('Familiya: ');
    ReadLn(a[i].Familiya);
    Write('Nomer: ');
    ReadLn(a[i].Nomer);
  end;
  Znach := 0;
  for i := 1 to N do
  begin
    f := true;
    for j := 1 to Znach do
      if a[i].Marka = b[j].Marka then
      begin
        f := false;
        break;
      end;
    if f then
    begin
      Inc(Znach);
      b[Znach] := a[i];
      Inc(b[Znach].Count);
    end
    else
      Inc(b[j].Count);
  end;
  WriteLn('Result:');
  for i := 1 to Znach do
    WriteLn(b[i].Marka, ' - ', b[i].Count);
end.

Помогите ее переделать. надо чтобы работало через файл, а не через массив. не могу никак понять.

[Client]

например читать можно так

myfile : file of Auto;
...
reset(myfile);
while not eof(myfile) do begin
  read(myfile, myAuto);
  ...
end;

Сообщение отредактировано: Client - 24.06.2010 20:29

[smith]

извини, а ты не мог бы вклинить это в мою прогу чтобы работало?...