Текстовые файлы. Сведения об автомобилях.

[HelloInside]

Задача по текстовых файлах.

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

Так я вот розвязал, но у меня что-то не все получается:

uses crt;
 
type avto = record
     marka: string;
     st,kilo: real;
     end;
 
var f1,f2: text;
    name1,name2: string;
    a: array [1..100] of avto;
    n,i,j,firms: integer;
    tmp: avto;
 
 
begin clrscr;
write('Imea faila dlea chtenia: '); readln(name1);
assign(f1,name1); reset(f1);
write('Imea faila dlea zapisi: '); readln(name2);
assign(f2,name2); rewrite(f2);
 
readln(f1,n);
 
for i:=1 to n do
 begin
 readln(f1,a[i].marka);
 readln(f1,a[i].st);
 readln(f1,a[i].kilo);
 end;
 
close(f1);
 
for i:=n-1 downto 1 do
 for j:=1 to i do
  if a[j].marka > a[j+1].marka then
   begin
   tmp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=tmp;
   end;
 
firms:=1;
 
for i:=2 to n do
 if a[i].marka <> a[i-1].marka then inc(firms);
 
for i:=1 to n do
 begin
 writeln(f2,a[i].marka);
 writeln(f2,a[i].st);
 writeln(f2,a[i].kilo);
 end;
writeln(f2,firms);
 
close(f2);
writeln('Dannye byli perepisany v ',name2);
readkey; end.

Только я не знаю как сделать вот ето:
1)

"в каждую строку файла прибавить средний километраж по всем маркам в файле."

2)

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

Вот немного подправил код задачи:

uses crt;
 
type avto = record
     marka: string;
     st,kilo: real;
     end;
 
var f1,f2: text;
    name1,name2: string;
    a: array [1..100] of avto;
    n,i,j,firms: integer;
    tmp: avto;
 
 
begin clrscr;
write('Imea faila dlea chtenia: '); readln(name1);
assign(f1,name1); reset(f1);
write('Imea faila dlea zapisi: '); readln(name2);
assign(f2,name2); rewrite(f2);
 
readln(f1,n);
 
for i:=1 to n do
 begin
 readln(f1,a[i].marka);
 readln(f1,a[i].st);
 readln(f1,a[i].kilo);
 end;
 
close(f1);
 
for i:=n-1 downto 1 do
 for j:=1 to i do
  if a[j].marka > a[j+1].marka then
   begin
   tmp:=a[j];
   a[j]:=a[j+1];
   a[j+1]:=tmp;
   end;
 
firms:=1;
 
for i:=2 to n do
 if a[i].marka <> a[i-1].marka then inc(firms);
 
for i:=1 to n do
 begin
 writeln(f2,a[i].marka);
 writeln(f2,a[i].st:6:2);
 writeln(f2,a[i].kilo:6:2);
 end;
writeln(f2,firms);
 
close(f2);
writeln('Dannye byli perepisany v ',name2);
readkey; end.

Помогите пожалусто добавить:

1)

"в каждую строку файла прибавить средний километраж по всем маркам в файле."

2)

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

[whatever]

"в каждую строку файла прибавить средний километраж по всем маркам в файле."

procedure addtoEOLN(S:string; var t:text);//s - добавляемая строка
var
  tmp:string;
  F:text;
begin
  assign(F,'tmp.txt');
  rewrite(F);
  reset(T);
  while not eof(t) do
    begin
      tmp:='';
      readln(T,tmp);
      writeln(F,tmp+S);
    end;
  close(F);
  reset(F);
  rewrite(T);
  while not eof(F) do
    begin
      tmp:='';
      readln(F,tmp);
      writeln(T,tmp)
    end;
  close(T);
  close(F);
  deletefile('tmp.txt')//не знаю, есть ли эта команда в паскале
end;

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

А тут то что сложного? append и вперед.

[HelloInside]

Куда именно в программу вставить етот код?

procedure addtoEOLN(S:string; var t:text);//s - добавляемая строка
var
  tmp:string;
  F:text;
begin
  assign(F,'tmp.txt');
  rewrite(F);
  reset(T);
  while not eof(t) do
    begin
      tmp:='';
      readln(T,tmp);
      writeln(F,tmp+S);
    end;
  close(F);
  reset(F);
  rewrite(T);
  while not eof(F) do
    begin
      tmp:='';
      readln(F,tmp);
      writeln(T,tmp)
    end;
  close(T);
  close(F);
  deletefile('tmp.txt')//не знаю, есть ли эта команда в паскале
end;