Pascal/Turbo Pascal - ayuda con problema

program inscriptos;

var i,persona,permax:integer;

begin

persona:=0; permax:=-1

for i:=1 to 31 do

begin

read(persona);

if(persona>permax) do

begin

permax=persona

end;

read(permax);

white(permax);

end;

end.

Uses CRT;

const

  DIAS = 31;

TYPE

  TipoMes = Array[1..dias] of integer;

  var

    MES : TipoMes;

    i: integer;

    max,dia:integer;

  begin

    For I:=1 to dias do

      bEGIN

        wRITELN('¨Cu ntas presonas ingresaron el d¡a ',i,'?');

        readln(mes[i]);

      END;

    dia := 1;

    Max :=MES[1];

    For i:= 2 to DIAS do

       if mes[i]>max then

           begin

             max:=mes[i];

             dia:=i;

           end;

    Writeln('El d¡a que m s gente ingres¢ fue el d¡a ',dia,' con un total de ',max,' personas');

    readln;

end.