Lazarus

Free Pascal => General => Topic started by: oshani on June 26, 2016, 07:21:56 am

Title: Arrays for Pascal's Procedures
Post by: oshani on June 26, 2016, 07:21:56 am

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.

Title: Re: Arrays for Pascal's Procedures
Post by: Leledumbo on June 26, 2016, 09:05:34 am

Quote from: oshani on June 26, 2016, 07:21:56 am

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