Как сделать поиск в заданном диапазоне максимального значения? - PascalABC.NET

Формулировка задачи:

как сделать поиск в заданном диапозоне(a[I].ob) максимального значения(a[I].pa)? вот мой код

procedure minzan(na:integer; a:zavod; var n: Integer);
var i, max:integer;
begin
n:=0;
max:=1000;
for i:=1 to na do
  if a[i].ob=16 
  then if (max <> a[i].pa+a[i].ob) then  {if (a[i].ob<=14)or (a[i].ob=18)} 
  begin
    max := a[i].ob + a[i].pa;
    n := i;
  end;

не получается

Решение задачи: «Как сделать поиск в заданном диапазоне максимального значения?»

Листинг программы

type
  tModel = record
    Name : String[30];
    engine, fuel : Real;
  end;
 
function ReadAuto(n : Integer) : tModel;
begin
  WriteLn('Введите характеристики ' + n + ' автомобиля:');
  Result.Name   := ReadLnString('                      модель:');
  Result.engine := ReadLnReal  ('   объём двигателя (куб.см.):');
  Result.fuel   := ReadLnReal  ('расход топлива на 100 км (л):');
end;
 
begin
  var n := ReadLnInteger('Количество автомобилей:');
  var a : array of tModel;
  SetLength(a, n);
  for var i := 0 to n-1 do a[i] := ReadAuto(i+1);
  
  var r := a.Where(Model->(Model.engine>=1.4)and(Model.engine<=1.8)).toArray;
  if r.Count = 0 then
    begin
      WriteLn('Нет автомобилей с заданным объёмом...');
      Halt;
    end;
  var maxFuel := r.Select(Model->Model.fuel).Max;
  WriteLn(maxFuel);
  Write('Модель(-ли) с максимальным расходом топлива: ');
  foreach var Model in r do
    if Model.fuel=maxFuel then Print(Model.Name);
end.

Объяснение кода листинга программы

В этом коде:

Создается структура данных tModel, которая представляет собой запись с полями Name (модель), engine (объем двигателя) и fuel (расход топлива).
Определяется функция ReadAuto, которая запрашивает у пользователя ввод данных для создания объекта tModel.
В цикле с помощью функции ReadAuto создается массив a с заданным количеством автомобилей.
Используя метод Where, из массива a исключаются автомобили с объемом двигателя меньше 1.4 и больше 1.8 литра.
Если после фильтрации в массиве r не осталось автомобилей, выводится сообщение об их отсутствии.
Находится максимальное значение расхода топлива среди оставшихся автомобилей.
Выводится сообщение с названием модели автомобиля, у которого максимальный расход топлива.