Процедуры Паскаль АВС, Разработать процедуру ввода массивов и вычисления максимальных значени Опции

[swe-4a]

Пожалуйста ПОМОГИТЕ исправить!

Program    prim2;
{Даны 3 двумерных массива A, B, C разной длины.
Разработать процедуру ввода массивов и вычисления
максимальных значений каждого из массивов. Полученные
максимумы  передать в программу, в которой найти
максимум среди 3-х максимальных значений.

Результаты выдать на экран}
type   mas=array[1..50]  of  integer;
Var
A,B,C : mas; 
mo,ma,mb,mc : integer;       
procedure  Pm(A:mas; Var m:integer);  
Var
i,n,imax: integer; 
Begin        
Write('введите длину массива  n ');
Readln(n);
Writeln('введите элементы массива ');
For i:=1 to n do
 Read(A[i]);
imax:=1;
 for i:=1 to n do if a[i]<a[imax] then imax:=i;
  end;     
Begin
Pm(A,  ma ); 
Pm(B,  mb); 
Pm(C,  mc);
writeln('max a=', ma,' max b=', mb,' max c=',mc);
mo:=0;
if ma>mb then{a - большее}
if ma>mc then mo:=ma else mo:=mc
else {b - большее}
if mb>mc then mo:=mb else mo:=mc;
{вывод результатов}
writeln('max itog(',ma, ',', mb, ',', mc, ')=',mo)
   End.