Даны 4 двумерных массива A, B, C, D разной длины. Разработать процедуру ввода массивов,...

Type Mass = array[1..50,1..50] of integer;

Procedure ABC(Var A:Mass; Var k,Min: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;
{Поиск минимума}
Min:=A[1,1];
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]{Подсчёт минимумов}
k:=0;
For i:= 1 to i do
    For j:= 1 to j do
        if A[i,j]=Min then k:=k+1;
End;
Var
   A,B,C,D:Mass;
   Max,kMin,Min:integer;
Begin
Randomize;
WriteLn('Массив A(M,N):');
ABC(A,kMin,Min);
WriteLn('Min(A) = ',Min);
WriteLn('kMin(A) = ',kMin);
Max:=kMin;
WriteLn;

WriteLn('Массив B(M,N):');
ABC(B,kMin,Min);
WriteLn('Min(B) = ',Min);
WriteLn('kMin(B) = ',kMin);
if MaxWriteLn;

WriteLn('Массив C(M,N):');
ABC(C,kMin,Min);
WriteLn('Min(C) = ',Min);
WriteLn('kMin(C) = ',kMin);
if MaxWriteLn;

WriteLn('Массив D(M,N):');
ABC(D,kMin,Min);
WriteLn('Min(D) = ',Min);
WriteLn('kMin(D) = ',kMin);
if MaxWriteLn;
WriteLn('Max(kMin(A),kMin(B),kMin(C),kMin(D)) = ',Max);
End.