Записи с процедурами

[Sandysman]

до этого написал прогу без проц работала норм, начал с проц писать всякую фигню показывает, плиз подредактируйте:

program project1;
Type Stroka=record
                 Naz:string;
                 Rast,sput,perobr,massa:integer;
                 SR:real;
               end;
type   Ved=array [1..10] of Stroka;
Var Max,IMax,I,N:integer;
     F:Ved;
     procedure vvod (Var M:ved; N1:integer);
        Var I:integer;
        begin
         Write ('Vvedi kolichestvo planet');
           readln (N);
           Writeln ('Vvod vedomosti');
           For I:=1 to N1 do
                            Begin
                                    write   ('Nazvanie planeti');
                                    Readln (M[I].Naz);
                                    write ('rastoyznie do solnca');
                                    Readln (M[I].Rast);
                                    write ('Klichesnvo sputnirov');
                                    readln (M[I].sput);
                                    write  ('period obrashenia');
                                    readln (M[I].perobr);
                                    write('srednie rastoyanie');
                                    readln (M[I].SR);
                                    write ('massa');
                                    Readln (M[I].massa);
                                    Writeln ();
                     end;
     end;
     procedure cikl (var M:ved; Max,IMax,N1:integer);
     var I:integer;
     begin
      Max:=M[1].perobr;
      For I:=1 to N do If M[I].perobr>Max then
                                                begin
                                                       Max:=M[I].perobr;
                                                       IMax:=I;
                                                 end;
    end;
    procedure vivod (Var M:ved;IMax,Max,N1:integer);
    Var I:integer;
    begin
          Writeln ('------------------------');
          writeln ('|Naz|Rast|kol|per|Sr|Mas|');
          Writeln ('------------------------');
   for I:=1 to N do
                   begin
                        write (M[i].Naz:1);
                        write (M[i].massa:4);
                        write (M[i].perobr:5);
                        write (M[i].Rast:7);
                        write (M[i].sput:9);
                        write (M[i].SR:11);
                        writeln ();
                   end;
  Writeln ('max= ',Max,'Imax= ',IMax);
  Writeln   ('Planeta s naibolshim periodom obrasheniay');
  Writeln ('----------------------------');
  writeln ('|Naz|Rast|kol|per|Sred|Mas|');
  Writeln ('----------------------------');
  writeln (M[IMax].Naz, M[IMax].Rast, M[IMax].sput, M[IMax].perobr, M[IMax].SR, M[IMax].massa);
  Writeln ('----------------------------');
  readln();

    end;

begin
     Vvod (F,N);
     cikl (F,N,IMax,Max);
     writeln('isxodnay vedomost');
     vivod (F,N,IMax,Max);
end.

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