Дан массив A (10,5). Поменять местами элементы первого столбца с элементами столбца, в котором находится минимальный элемент массива

Pascal

Как я понял array [1 ... 10,1 ... 5] of integer;

const

n = 10;

m = 5;

var

a : array [1 ... n, 1 ... m] of integer;

i, j, min, jm, buf : integer;

begin

for i : = 1 to n do

for j : = 1 to m do

readln (a[i, j]) ;

min : = a[1,1];

jm : = 1;

for i : = 1 to n do

for j : = 1 to m do

if a[i, j] < min then

begin

jm : = j;

min : = a[i, j];

end;

if jm 1 then

for i : = 1 to n do

begin

buf : = a[i, 1];

a[i, 1] : = a[i, jm];

a[i, jm] : = buf;

end;

end.