Стек: Найти квартиру с минимальной средней площадью комнаты - PascalABC.NET

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

Помогите пожалуйста с 1 или 2 заданием (можно с обеими если есть желание). Не могу понять как это сделать. Запись с полями: адрес квартиры; количество комнат; общая площадь квартиры. 1. Найти квартиру с минимальной средней площадью комнаты. Средняя площадь комнаты определяется как (общая площадь квартиры)/(количество комнат). 2. Скопировать в новый стек информацию о четырехкомнатных квартирах, общая площадь которых больше заданного значения. Код:

type 
 FSB = record
   adr: string;
    kvart: integer;
    pl: integer;
    
  end;
 
type  celltype = record 
        info: FSB; 
        next: ^ celltype 
    end; 
    STACK = ^ celltype; 
    
var top: STACK;
 
function Empty(top: STACK): boolean;
begin
  Empty:= Top=nil;
end; 
 
procedure Push(z: FSB; var top: STACK);
Var p: STACK;
begin
  new(p);
  p^.next:= top;
  p^.info:= z;
  top:=p;
end;    
 
procedure LoadToBd(fn: String; var top: stack);
var  f: text;
  a: FSB;
begin
  assign(f, fn);
  reset(f);
  while not eof(f) do
  begin
    readln(f, a.adr);
    readln(f, a.kvart);
    readln(f, a.pl);
   
    push(a,top);
  end;
  close(f);
end;
 
procedure Pop(var top: STACK; var x: FSB);
Var p: STACK;
begin
  if Empty(top)=False then begin
    p:= top^.next;
    x:=top^.info; 
    dispose(top); 
    top:=p;            
  end  else
     writeln('стек уже пуст');
end;  
 
procedure WriteStack(var top: stack);
var
  temp: stack;
  z: FSB;
begin
  while top<>nil do
  begin
    pop(top, z);
    push(z, temp);
    Writeln(z);
  end;
  
  while temp<>nil do
  begin
    pop(temp, z);
    push(z, top);
  end;
end;

var
  z:FSB;
  p: Integer;
 
begin
  top := nil;
  LoadToBd('laba1.txt',top);
  WriteStack(top);

end.

Решение задачи: «Стек: Найти квартиру с минимальной средней площадью комнаты»

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

function Load(fn : string) : Stack<(string, integer, integer)>;
begin
  result := new Stack<(string, integer, integer)>(
    ReadAllLines(fn).Batch(3).Select(v -> (v.ElementAt(0), v.ElementAt(1).ToInteger, v.ElementAt(2).ToInteger))
  );
end;
 
begin
  var s := Load('kvart.txt');
  Println('Квартира с минимальной средней площадью: ', s.MinBy(v -> v[2] / v[1]));
  var p := ReadlnInteger('Значение площади для поиска: ');
  var s2 := new Stack<(string, integer, integer)>(s.Where(v -> (v[1] = 4) and (v[2] > p)));
  s2.Println;
end.

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

В данном коде используется язык программирования PascalABC.Net. Постановка задачи - найти квартиру с минимальной средней площадью комнаты.

Объявлена функция Load, которая принимает в качестве параметра имя файла и возвращает стек, содержащий кортежи из трех элементов: название квартиры, количество комнат и площадь квартиры. Внутри функции создается новый экземпляр стека, который заполняется данными из файла, разделенного на строки. Каждая строка разбивается на три элемента: название квартиры, количество комнат и площадь квартиры. Элементы преобразуются в нужные типы данных и добавляются в стек.
После вызова функции Load, стек s содержит все данные из файла.
Выводится сообщение с запросом на ввод значения площади для поиска.
После ввода значения площади, создается новый стек s2, который содержит только те кортежи из стека s, у которых количество комнат равно 4 и площадь больше введенного значения.
Выводится содержимое стека s2.
В конце кода, в стеке s остается только один кортеж, содержащий название квартиры, количество комнат и площадь квартиры с минимальной средней площадью.
Для поиска квартиры с минимальной средней площадью используется метод MinBy, который принимает в качестве аргумента лямбда-выражение, определяющее порядок сравнения кортежей по значению площади квартиры.
В конце кода, в стеке s2 остается только один кортеж, содержащий название квартиры, количество комнат и площадь квартиры с минимальной средней площадью.