Найти отношение минимального элемента матрицы A(n,m) и максимального элемента матрицы B(k,p)

uses crt; {подключаем библиотеку crt}
var min_a,max_b,n,m,k,p,i,j,l,f:byte; {описываем переменные как байт}
A,B:array [1..30,1..30] of integer; {описываем целочисленные массивы максимальным размером 30х30}
begin
writeln('vvedite kol-vo strok matrici A'); 
readln(i); 
writeln('vvedite kol-vo stolbcov matrici A');
readln(j);
writeln('vvedite kol-vo strok matrici B');
readln(l);
writeln('vvedite kol-vo stolbcov matrici B');
readln(f);
for n:=1 to i do
for m:=1 to j do
a[n,m]:=random(50); {рандомно заполняем положительными элементами массив А}
for k:=1 to l do
for p:=1 to f do
b[k,p]:=random(50);
min_a:=a[1,1];
max_b:=b[1,1];
for n:=1 to i do
for m:=1 to j do
if min_a>a[i,j] then min_a:=a[i,j]; {ищем минимальный элемент массива А}
for k:=1 to l do
for p:=1 to f do
if max_b<b[k,p] then max_b:=b[k,p]; {ищем максимальный элемент массива В}
clrscr; {очищаем экран}
for n:=1 to i do begin
for m:=1 to j do
write(a[n,m]:5); {выводим на экран первую строку массива А}
writeln; {переход на новую строку экрана, для вывода следующей строки массива А}
end;
writeln;
for k:=1 to l do begin
for p:=1 to f do
write(b[k,p]:5);
writeln;
end;
writeln;
writeln('otnishenie minimalnogo matrici A k maximalnomu matrici B = ', min_a/max_b:4:2); {выводим отношение минимального к максимальному}
readln;
end.

Program Matrica_Random;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100,1..100] of integer ;
 
var
a,b:mat;
i,j,k,p,m,n,Imin,Jmin,Imax,Jmax:integer; { индексы массива }
o:real;
 
begin { начало основной программы }
 
 clrscr;   { очищает текстовое окно}
 randomize; { активирован Генератор Случайных Чисел ( Г.С.Ч. ) }
 Write('Количество строк матрицы А: ');readln(m);
 Write('Количество столбцов матрицы А: ');readln(n);
 Write('Количество строк матрицы B: ');readln(p);
 Write('Количество столбцов матрицы B: ');readln(k);
{------------------------------------------------------------------------------- формируем матрицу }
 Writeln('Исходная матрица A:');
 imin:=1; imax:=1; Jmin:=1; Jmax:=1;
 For i:=1 to m do    { цикл для перебора всех строк }
    begin
    For j:=1 to n do   { перебор всех элементов строки по столбцам }
       begin
       a[i,j]:=random(10)+1;  { элементу, стоящему в i -й строке и j -м столбце, присваивается «случайное» целое число в диапазоне от 1 до 9 }
       write(a[i,j]:4);  { вывод элемента, стоящего в i -й строке и j -м столбце, при этом для вывода каждого элемента отводится 4 позиции }
       If a[i,j]<a[imin,jmin] then begin imin:=i; jmin:=j; end;
       If a[i,j]>a[imax,Jmax] then begin imax:=i; Jmax:=j; end;
       end;
    writeln;           { перевод курсора на следующую строку }
    end;
 Writeln('Исходная матрица B:');
 For i:=1 to p do    { цикл для перебора всех строк }
    begin
    For j:=1 to k do   { перебор всех элементов строки по столбцам }
       begin
       b[i,j]:=random(10)+1;  { элементу, стоящему в i -й строке и j -м столбце, присваивается «случайное» целое число в диапазоне от 1 до 9 }
       write(b[i,j]:4);  { вывод элемента, стоящего в i -й строке и j -м столбце, при этом для вывода каждого элемента отводится 4 позиции }
       If b[i,j]>b[imax,Jmax] then begin imax:=i; Jmax:=j; end;
       end;
    writeln;           { перевод курсора на следующую строку }
    end;
Writeln('Индекс максимального - b[',imax,',',jmax,']');
Writeln('Индекс  минимального - a[',imin,',',jmin,']');
o:=a[imin,jmin]/b[imax,Jmax];
Writeln('Отношениме min/max = ',o,' или ',o*100,'%');
{------------------------------------------------------------------------------ матрица сформирована }
 
 readkey; { читает символ из буфера клавиатуры.}
end.