Даны 3 двумерных массива a, b, c разной длины. разработать процедуру ввода массивов и вычисления максимальных значений каждого из массивов. полученные максимумы передать в программу, в которой найти максимум среди 3-х максимальных значений. результаты выдать на экран. нужен паскаль

Type mass = array[1..50,1..50] of integer; procedure abc(var a: mass; var max: integer); var     i,j: integer; begin write('m = '); readln(i); write('n = '); readln(j); for i: = 1 to i do       begin       for j: = 1 to j do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln;       end; {поиск максимума} max: =a[1,1]; for i: = 1 to i do       for j: = 1 to j do               if a[i,j]> max then max: =a[i,j]; end; var     a,b,c: mass;     maxmax,max: integer; begin randomize; writeln('массив a(m,n): '); abc(a,max); writeln('max(a) = ',max); maxmax: =max; writeln; writeln('массив b(m,n): '); abc(b,max); writeln('max(b) = ',max); if maxmax< max then maxmax: =max; writeln; writeln('массив c(m,n): '); abc(c,max); writeln('max(c) = ',max); if maxmax< max then maxmax: =max; writeln; writeln('max(max(a),max(b),max(c)) = ',maxmax); end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! procedure maxmas(s: string; var max: integer); begin  writeln('*** массив ',s,' ***');   var m: =readlninteger('количество строк: ');   var n: =readlninteger('количество столбцов: ');   writeln('вводите: ');   var a: =readmatrinteger(m,n);   max: =a.elementsbyrow.maxend; begin  var ma,mb,mc: integer;   maxmas('a',ma);   maxmas('b',mb);   maxmas('c',mc);   writeln('максимальный элемент равен ',max(ma,max(mb,end. пример *** массив a *** количество строк:   2 количество столбцов:   2 вводите: 3 6 -2 11 *** массив b *** количество строк:   3 2 количество столбцов:   2 вводите: -5 0 7 9 12 6 *** массив c *** количество строк:   2 количество столбцов:   4 вводите: -11 8 9 5 11 14 8 -6 максимальный элемент равен 14

Для случайных  чисел: var     a: array[1..5] of integer;     i: integer; begin     randomize;     for i: =1 to 5 do       a[i] : = random(100);     for i: =1 to 5 do       write(a[i], ' ');     writeln;     for i: =1 to 5 do       a[i] : = a[i] * i;     for i: =1 to 5 do       write(a[i], ' '); end. для ручного заполнения: var     a: array[1..5] of integer;     i: integer; begin     for i: =1 to 5 do       readln(a[i]);     for i: =1 to 5 do       write(a[i], ' ');     writeln;     for i: =1 to 5 do       a[i] : = a[i] * i;     for i: =1 to 5 do       write(a[i], ' '); end.