PascalABC.net СТЕК Найти квартиру с минимальной средней площадью комнаты. Средняя площадь комнаты определяется как (общая площадь квартиры)/(количество комнат).

[Ymti]

Помогите пожалуйста с 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.

[Serge_Bliznykov]

а чем Вас ваша прошлая тема не устроила?
http://www.programmersforum.ru/showthread.php?t=319910

[Ymti]

Сообщение от Serge_Bliznykov

а чем Вас ваша прошлая тема не устроила?
http://www.programmersforum.ru/showthread.php?t=319910

Извините плохо объяснил, данная задача теперь в виде стека, а не списка.