даны две матрицы размерности 10х10, элементами которых являются случайные целые числа из диапазона от 0 до 50.Найти сумму максимальных элементовстолбцов обеих матриц и сумму минимальных элементов строк( в числе подпрограммдолжна быть подпрограмма инициализации матрицы случайными числами из определенного диапазона) — Pascal(Паскаль)

uses crt;
const n=10;
type matr=array[1..n,1..n] of integer;
function MyRandom(a,b:integer):integer;
begin
MyRandom:=random(b-a+1)+a;
end;
procedure Vvod(var mt:matr;a,b:integer);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=MyRandom(a,b);
end;
procedure Vyvod(var mt:matr;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:4);
  writeln;
 end;
end;
function SumMax(mt:matr):integer;
var i,j:byte;
    sm,mx:integer;
begin
sm:=0;
for j:=1 to n do
 begin
  mx:=mt[1,j];
  for i:=1 to n do
  if mt[i,j]>mx then mx:=mt[i,j];
  sm:=sm+mx;
 end;
SumMax:=sm;
end;
function SumMin(mt:matr):integer;
var i,j:byte;
    sm,mn:integer;
begin
sm:=0;
for i:=1 to n do
 begin
  mn:=mt[i,1];
  for j:=1 to n do
  if mt[i,j]<mn then mn:=mt[i,j];
  sm:=sm+mn;
 end;
SumMin:=sm;
end;
var a,b:matr;
begin
clrscr;
randomize;
Vvod(a,0,50);
Vvod(b,0,50);
Vyvod(a,'A');
writeln('Сумма максимальных в столбцах=',SumMax(a));
writeln('Сумма миниимальных в строках =',SumMin(a));
readln;
Vyvod(b,'B');
writeln('Сумма максимальных в столбцах=',SumMax(b));
writeln('Сумма миниимальных в строках =',SumMin(b));
readln
end.