Задача по информатике, 8 класс, решить в PascalABC

program Mtx;
var mtx1, mtx2: array[,] of integer;
function NewMatrix(rows, cols: byte): array[,] of integer;
begin
var mtx: array[,] of integer;
randomize;
setlength(mtx, rows, cols);
for var i := 0 to length(mtx, 0)-1 do
for var j := 0 to length(mtx, 1)-1 do
mtx[i,j] := random(100);
Result := mtx;
end;
procedure ShowMatrix(mtx: array[,] of integer; title: string);
begin
writeln(title);
for var i := 0 to length(mtx, 0)-1 do begin
for var j := 0 to length(mtx, 1)-1 do
write(mtx[i,j]:5);
writeln;
end;
end;
begin
writeln('--- Задание № 1 ---');
mtx1 := NewMatrix(4, 5);
ShowMatrix(mtx1, 'Исходная матрица:');
for var i := 0 to length(mtx1, 0)-1 do
for var j := 0 to length(mtx1, 1)-1 do
if odd(mtx1[i,j]) then mtx1[i,j] -= mtx1[i,length(mtx1, 1)-1];
ShowMatrix(mtx1, 'Полученная матрица:');
writeln('--- Задание № 2 ---');
var max, min: array[0..1] of byte;
var tmp: integer;
mtx2 := NewMatrix(4, 5);
ShowMatrix(mtx2, 'Исходная матрица:');
for var i := 0 to length(mtx1, 0)-1 do
for var j := 0 to length(mtx1, 1)-1 do begin
if mtx2[i,j] > mtx2[max[0],max[1]] then begin
max[0] := i; max[1] := j;
end;
if mtx2[i,j] < mtx2[min[0],min[1]] then begin
min[0] := i; min[1] := j;
end;
end;
tmp := mtx2[max[0],max[1]];
mtx2[max[0],max[1]] := mtx2[min[0],min[1]];
mtx2[min[0],min[1]] := tmp;
ShowMatrix(mtx2, 'Полученная матрица:');
end.