Задача на объекты. Исправить код.

[AVer]

Один человек попросил помоч, а я чего то не понимаю... Есть такая задача:

Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и список объектов и содержит процедуры, работающие с указанными структурами.
Объект - квартира. Параметры: площадь и стоимость. Методы: конструктор и процедура, которая определяет стоимость одного метра. Определить какие квартиры из предложенных, имеют стоимость метра меньше заданной. Реализовать два варианта (с массивом и списком).

И вот такое решение (не мое):

program laba14;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type  Tflat=Object
      s,cust:real;
      procedure init(asq,acust:real);
      function metrcust:real;
      end;
      procedure tflat.init;
      begin
      s:=asq;
      cust:=acust;
      end;
      function tflat.metrcust;
      begin
      metrcust:=cust/s;
      end;
Type ptelem=^telem;
     telem=record
     kvar:tflat;
     next:ptelem;
     end;

Var F:tflat;
dom:array[1..10] of tflat;
sq,c:real;
i,n,k:byte;
first,last,cur:ptelem;
begin
{
WriteLn('Vvedite kol-vo kvartir v dome');
ReadLn(n);
WriteLn('Vvedite dannie o kvartirah');
for i:=1 to n do
begin
  WriteLn('Kvartira №',i:3);
  Write('Plochad = ');readln(sq);
  Write('Stoimost = ');readLn(c);
  dom[i].init(sq,c);
end;
writeln('                    Dannye o dome');
writeln('____________________________________');
for i:=1 to n do
begin
  WriteLn('Kvartira №',i:3);
  Writeln('Plochad = ',dom[i].s:7:3);
  Writeln('Stoimost = ',dom[i].cust:7:3);
  writeln(' Cena metra=',dom[i].metrcust:7:3);
  writeln('____________________________________');
end;

  WriteLn('Vvedite stoimost 1 metra=');
  ReadLn(c);
  k:=0;
for i:=1 to N do
begin
  if c>=dom[i].metrcust then begin
  k:=k+1;
WriteLn('Kvartira №',i:3,' stoimost metra ',dom[i].metrcust:5:3,' plochad ',dom[i].s:7:3);
    end;
    end;
    if k=0 then WriteLn('Takoi kvartiri net!');
readln; }
WriteLn('Vvedite kol-vo kvartir');
readLn(n);
 WriteLn('Vvedite dannie o kvartirah');
i:=1;
  WriteLn('Kvartira N',i:3);
  Write('Plochad = ');readln(sq);
  Write('Stoimost = ');readLn(c);
  new(first);
  first^.kvar.init(sq,c);
  first^.next:=nil;
  last:=first;
  for i:=2 to n do begin
   WriteLn('Kvartira N',i:3);
   Write('Plochad = ');readln(sq);
   Write('Stoimost = ');readLn(c);
   new(cur);
   cur^.kvar.init(sq,c);
   cur^.next:=nil;
   last^.next:=cur;
   last:=cur;
   end;
   cur:=first;
   writeln('                    Dannye o dome');
writeln('____________________________________');
i:=0;
   while cur<>nil do
   begin
    i:=i+1;
    WriteLn('Kvartira N',i:3);
  Writeln('Plochad = ',Cur^.kvar.s:7:3);
  Writeln('Stoimost = ',Cur^.kvar.cust:7:3);
  writeln(' Cena metra=',Cur^.kvar.metrcust:7:3);
  writeln('____________________________________');
  cur:=cur^.next;
   end;
WriteLn('Vvedite stoimost 1 metra=');
  ReadLn(c);
cur:=first;
 writeln('               Result poisk');
i:=0;
   while cur<>nil do
   begin
    i:=i+1;
    if c>=Cur^.kvar.metrcust then
    begin
   WriteLn('Kvartira N',i:3);
  Writeln('Plochad = ',Cur^.kvar.s:7:3);
  Writeln('Stoimost = ',Cur^.kvar.cust:7:3);
  writeln(' Cena metra=',Cur^.kvar.metrcust:7:3);
  writeln('____________________________________');
  end;
  cur:=cur^.next;
   end;

ReadLN;

end.

Все вроде верно, но препод говорит что здесь что то лишнее... Подскажите плз.

[AVer]

Извините что заставил мозги ломать, просто там было несоответствие условию. Тема закрыта.