спасибо большое, Владимир!
uses crt;
const size = 10;
Var
El, MaxEl, iMax, jMax, i, j : integer;
lMax, lMin, mtr : Array[1..size,1..size] of integer;
Begin
ClrScr;
Randomize;
{формируем матрицу случайным образом}
For i:=1 to size do
For j:=1 to size do
begin...