Написать программу для выявления максимального значения в каждом из трёх одномерных массивов — Pascal(Паскаль)

Program Zadacha;
const N=2; M=3;
type Data=array [1..N] of integer;
var arM:Data; max:integer;  i,j:integer;
procedure F1(var arA: Data);
var I:integer;
begin
writeln ('Vvod massiva');
for I:=1 to N do
begin
write ('Vvesti A[',I,']');
readln(arA[I]);
end;
end;
procedure F2(var arA: Data);
var I:integer;
begin
max:=-100;
for I:=1 to N do
  if arA[i]>max then max:=arA[i];
end;
BEGIN


for i:=1 to M do 
    begin
        F1(Arm);
        F2(Arm);
        writeln('max', max);
    end;    
       
END.