Сортировка в файле

program type_record;
 
type weapon=record
     model: string[30];
     kalibr: real;
     dalnost: real;
     oboima: integer;
     stoimost: real;
end;
TWeapon=array [1..100] of weapon;
procedure sort(var Arr:Tweapon;n:integer);
var i,j:integer;
    x:weapon;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
 if arr[i].stoimost<arr[j].stoimost then
  begin
    x:=arr[i];
    arr[i]:=arr[j];
    arr[j]:=x;
  end;
end;
 
 
function addcars(var x:weapon; var v,n:integer):weapon;
        var
        y: Tweapon;
                Fout:text;
        begin
                assign(Fout, 'Result.txt');
                v:=v+1;
                writeln('#',v);
                if v = 0 then
                        rewrite(Fout)
                else
                        append(Fout);
                writeln(Fout, '#',v);
                Write('Модель: '); ReadLn(y[n].model);
                Write('Калибр: '); ReadLn(y[n].kalibr);
                Write('Дальность: '); ReadLn(y[n].dalnost);
                Write('Объем обоймы: '); ReadLn(y[n].oboima);
                Write('Стоимость: '); ReadLn(y[n].stoimost);
                writeln();
                close(Fout);
        end;
 
 
var x: Tweapon;
    maxdal, maxkal: weapon;
    Fout: text;
    i, n, y, c, k: integer;
 
begin
writeln('Выбирите действие ');
writeln('1. Добавить оружие: ');
write('2. Перезаписать орижие: ');
readln(c);
 
 if c=1 then   addcars(x);
 
if c=2 then
  begin
   write('Введите количество марок: '); readln(k);
     assign(Fout, 'Result.txt'); rewrite(Fout);
      n:=1;
       for y := 1 to k do
   begin
    Write('Модель: '); ReadLn(x[n].model);
    Write('Калибр: '); ReadLn(x[n].kalibr);
    Write('Дальность: '); ReadLn(x[n].dalnost);
    Write('Объем обоймы: '); ReadLn(x[n].oboima);
    Write('Стоимость: '); ReadLn(x[n].stoimost);
   if x[n].kalibr > maxkal.kalibr then maxkal := x[n];
   if x[n].dalnost > maxdal.dalnost then maxdal := x[n];
    inc(n);
    end;
 sort(x,n-1);
    for i:= 1 to n-1 do
  begin
    writeln(Fout,'Модель оружия: ',x[i].model,'');
    writeln(Fout,'Калибр пули: ',x[i].kalibr,' mm');
    writeln(Fout,'Дальность стрельбы: ',x[i].dalnost,' метр(ов)');
    writeln(Fout,'Объём обоимы: ',x[i].oboima,' патрон(ов)');
    writeln(Fout,'Стоимость: ',x[i].stoimost,'$');
     writeln(Fout,'');
  end;
 
    Writeln(Fout,'Наибольшее по калибру: ', maxkal.model);
    Writeln(Fout,'Наибольшее по дальности: ', maxdal.model);
 
close(fout);
end;
  end.