Вывести файл с описанием оружия, найти среди них наибольшее по калибру и дальности стрельбы

program type_record;
type weapon=record;
     model: string;
     kalibr: real;
     dalnost: real;
     oboima: integer;
     stoimost: real;
end;
 
var f: weapon;
    s,s1: text;
begin
  assign(s, 'weapon.txt'); reset(s);
  assign(s1,'weapon2.txt'); rewrite(s1);
    readln(s, f.model, f.kalibr, f.dalnost, f.oboima, f.stoimost);
     writeln(s1,'Модель оружия ',f.model,'');
     writeln(s1,'Калибр пули ',f.kalibr,' mm');
     writeln(s1,'Дальность стрельбы ',f.dalnost,' метров');
     writeln(s1,'Объём обоимы ',f.oboima,' патронов');
     writeln(s1,'Стоимость ',f.stoimost,'$');
  close(s); close(s1);
  end.

const
  n = 3;// Количество записей. Этот параметр можно изменить.
 
type
  weapon = record
    model: string;
    kalibr: real;
    dalnost: real;
    oboima: integer;
    stoimost: real;
  end;
 
var
  x: array [1..n] of weapon;
  maxrange, maxcaliber: weapon;
  i: integer;
 
begin
  for i := 1 to n do
  begin
    Write('Модель: '); ReadLn(x[i].model);
    Write('Калибр: '); ReadLn(x[i].kalibr);
    Write('Дальность: '); ReadLn(x[i].dalnost);
    Write('Объем обоймы: '); ReadLn(x[i].oboima);
    Write('Стоимость: '); ReadLn(x[i].stoimost);
    if x[i].kalibr > maxcaliber.kalibr then
      maxcaliber := x[i];
    if x[i].dalnost > maxrange.dalnost then
      maxrange := x[i];
  end;     
  WriteLn('Наибольшее по калибру: ', maxcaliber.model);
  WriteLn('Наибольшее по дальности: ', maxrange.model);
end.