Даны 4 двумерных массива A, B, C, D одинаковой длины. Разработать процедуры: 1) для ввода размеров и элементов массива; 2) для вычисления минимумов среди отрицательных элементов в каждом массиве. В программе вычислить максимум среди полученных минимумов. Результаты выдать на экран.
НУЖЕН ПАСКАЛЬ!!!!!!!!!!!!!!!!!!!

А еще сказано "Разработать процедуры: 1) для ввода размеров и элементов массива; ...", а у Вас ввод в основной программе...

uses MATH;не найден я удалила можно

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!type  Mas=array[,] of integer;var  n,m:integer;  procedure GetMas(s:string; var a:Mas);begin  if n=0 then begin    n:=ReadInteger('Количество строк в массиве:');    m:=ReadInteger('Количество столбцов в массиве:');  end;  Writeln('Вводите элементы массива ',s);  a:=ReadMatrInteger(n,m)end;function MinMas(a:Mas):=a.ElementsByRow.Where(x->x<0).Min;begin  var a,b,c,d:Mas;  n:=0;  GetMas('A',a);  GetMas('B',b);  GetMas('C',c);  GetMas('D',d);  Writeln('Искомый максимум равен ',    Max(MinMas(a),Max(MinMas(b),Max(MinMas(c),MinMas(d)))))end.ПримерКоличество строк в массиве: 3Количество столбцов в массиве: 5Вводите элементы массива A-33 -50  34 -41 -41-31  10  37  31  4032 -49 -32 -27   4Вводите элементы массива B-22  35  16  -6  370  11 -48  18 -20-39  25 -43  38 -26Вводите элементы массива C23  38 -33   8  2617  -8 -42  39   516  -1 -12 -25 -49Вводите элементы массива D29  31 -21  27  18-38  49 -11  17 -496  48 -34  30  49Искомый максимум равен -48