Я написал программу
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.
Помогите ее переделать. надо чтобы работало через файл, а не через массив. не могу никак понять.