По-лесно решение ?

Да се състави главна програма за обработка на три масива А[M,M], В[N,N] и С[P,P], където данните са числа в интервала [-9999 - 9999]. Съответните подпрограми да извършват следните обработки:

• да се намери максималния на всички елементи по стълбове и най-малкия от тях - MINIMAX.


program task;

type
MAS=array[1..50, 1..50] of integer;

procedure uslovie;
begin
writeln('Da se systavi glavna programa za obrabotka na ............');
end;


function minimax(a: MAS; y: integer): integer;
var
i, j, max : integer;
begin
result := -10000;
for j := 1 to y do
begin
max := a[1, j];
for i := 2 to y do
begin
if a[i, j] > max then
max := a[i, j];
end;
if (j = 1) or (result > max) then
result := max;
end;
minimax := result;
end;