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