Максимальный элемент матрицы А поставить на место минимального элемента массива В

program lab7;
uses crt; 
const 
K=15; 
L=10; 
var 
min:integer; 
i1:integer; 
m,n,i,j:byte; 
maks:integer; 
a:array[1..k,1..l]of integer; 
var b:array[1..10] of integer; 
begin clrscr; 
repeat 
write('Количество столбцов до ',k,' m='); 
read(m); 
until m in [1..k]; 
repeat 
write('Количество строк до ',l,' n='); 
read(n); 
until n in [1..l]; 
for i:=1 to n do 
for j:=1 to m do 
begin 
write('a[',i,',',j,']:='); 
readln(a[i,j]) 
end; 
for i:=1 to n do 
begin 
for j:=1 to m do 
end; 
maks:=a[1,1]; 
For i:=1 to n do 
For j:=1 to m do 
if a[i,j]>maks then 
begin 
maks:=a[i,j]; 
end; 
Write('maks='); 
Writeln(maks); 
begin 
writeln('введите 10 элементов массива'); 
min:=MAXINT; 
for i1:=1 to 10 do begin 
readln( b[i1] ); 
if min > b[i1] then min:=b[i1]; 
end; 
writeln( 'Минимальный элемент массива = ', min ); 
end; 
end.

var
    aiMax, ajMax, biMin, bjMin, n, m, i, j: Byte;
    a, b: Array[Byte, Byte] Of ShortInt;
begin
    Randomize;
    repeat
        Write('Введите количество строк (1..255): ');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('Введите количество столбцов (1..255): ');
        ReadLn(m);
    until (m > 0);
    WriteLn;
    WriteLn('Массив А:');
    aiMax := 0; ajMax := 0;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:4);
            if (a[i, j] > a[aiMax, ajMax])
            then
            begin
                aiMax := i;
                ajMax := j;
            end;
        end;
        WriteLn;
    end;
    WriteLn;
    WriteLn('Массив B:');
    biMin := 0; bjMin := 0;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
        begin
            b[i, j] := Random(199) - 99;
            Write(b[i, j]:4);
            if (b[i, j] < b[biMin, bjMin])
            then
            begin
                biMin := i;
                bjMin := j;
            end;
        end;
        WriteLn;
    end;
    b[biMin, bjMin] := a[aiMax, ajMax];
    WriteLn;
    WriteLn('Модифицированный массив B:');
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(b[i, j]:4);
        WriteLn;
    end;
end.