Arrays for Pascal's Procedures

[oshani]

Can someone tell me what's wrong here? please...

Program ictmarks;
var mark:array[0..4] of integer;
  procedure getMark(var mark:array[0..4]of integer);
      var I:integer;
           begin
           for I:= 0 to 4 do
           begin
           Writeln('Enter Marks:');
           Read(mark);
           end;
     end;
           Procedure FindtheMax(var mark:array[0..4] of integer);
             var Max,I:integer;
                begin
                max:=mark[0];
                  for I:= 0 to 4 do
                    begin
                    if Mark>max then
                    max:=Mark
                    end;
               Writeln('The Maximum Mark is:',max);
               end;
Begin
getMark(Mark);
findthemax(Mark);
end.

[Leledumbo]

Can someone tell me what's wrong here? please...

The compiler should tell you. Hint:
http://wiki.lazarus.freepascal.org/User_Changes_2.4.0#Local_type_definitions_in_parameter_lists