Дан массив 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.