Списки в паскале

[Sandysman]

Плиз помогите мне довести до ума прогу. Мне надо вывести начальный список, и из него вывести поле с максипальным периодом обращения. вот прога:

program laba;
type T=^TABL;
     TABL=record
                L:T;
                Naz:string;
                rast,sput,perobr,massa:integer;
                sr:real;
            end;
Var F,W,K:T;
  Max,IMax,I,N:integer;

begin
      write ('skolko elementov vvodit');
      readln (N);
      F:=nil;
      For I:=1 to N do
                      begin
                           new (W);
                           write ('nazvanie planeti');
                           readln (W^.Naz);
                           write ('period obrashenia');
                           readln (W^.perobr);
                           write ('rastoyanie do solnca');
                           readln (W^.rast);
                           write ('kolichestvo sputnikov');
                           readln (W^.sput);
                           Write ('Massa');
                           readln (W^.massa);
                           Write ('Sr');
                           readln (W^.sr);
                           Writeln ();
                           W^.L:=F;
                           F:=W;
                      end;
    Max:=F^.perobr;
    W:=F;
    For I:=1 to N do begin
                         If W^.perobr>Max then begin
                                                      Max:=W^.perobr;
                                                      IMax:=I;
                                                  end;
                          W:=W^.L;
                     end;
    Write ('Max: ',Max,'IMax: ',IMax); read (Max,IMax);
   dispose (W);
   dispose (F);
   W:=nil;
   F:=nil;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.