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

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.

type 
  FSB = record
    adr: string;
    kvart: integer;
    pl: integer;
    
    constructor (s1,s2,s3 : String);
    begin
      adr := s1; kvart := StrToInt(s2); pl := StrToInt(s3);
    end;
    
    procedure print := WriteLnFormat('{0,-30} | {1,5} | {2}', adr, kvart, pl);
  end;
 
function Load(fName : String) : Stack<FSB>;
begin
  Result := New Stack<FSB>;
  var s := ReadAllLines(fName);
  for var i := 0 to s.Count div 3-1 do
    Result.Push(New FSB(s[i*3], s[i*3+1], s[i*3+2]));
end;
 
procedure WriteStack(s : Stack<FSB>) := foreach var f in s do f.print;
 
procedure Find1(s : Stack<FSB>) := s.MinBy(f -> f.pl/f.kvart).print;
 
function Find2(s : Stack<FSB>; kvart, pl : Integer) : Stack<FSB>;
begin
  Result := New Stack<FSB>;
  foreach var f in s.Where(f -> (f.kvart=kvart) and (f.pl>pl)) do
    Result.Push(f);
end;
 
begin
  var s := Load('laba1.txt');
  WriteLn('Весь список квартир:'); WriteStack(s);
  
  WriteLn('Квартира с минимальной средней площадью:'); Find1(s);
  
  var s2 := Find2(s, 4, ReadInteger('Четырёхкомнатные квартиры площадью больше ='));
  WriteLn('Получен список:'); WriteStack(s2);
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.