задача с матрицами

[polika]

в прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним. Помогите пожалуйста решить, желательно с коментариями

[newerow1989]

var p:array[1..10,1..5] of byte;
    i,j,max,jmax,t:byte;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 5 do
      begin
         p[i,j]:=Random(256);//ввод случайных чисел в диапазоне от 0 до 255
         Write(p[i,j],'  ');//вывод этих чисел на экран
      end;
      Writeln;
   end;
   { устанавливаем начальные значения jmax, max }
   jmax:=1;
   max:=0;
   For j:=1 to 5 do
      For i:=1 to 10 do
         If max<p[i,j] then//если встретилось максимальное значение, то...
         begin
            jmax:=j;//...запоминаем номер столбца, и...
            max:=p[i,j];//...максимальное значение
         end;
   Writeln(jmax,'  ',max);//вывод номера столбца и максимального значения
   Writeln;
   For i:=1 to 10 do
   begin
      t:=p[i,5];//запоминаем i-й элемент 5 столбца
      p[i,5]:=p[i,jmax];//переписываем число из jmax столбца в последний в этой же i строке
      p[i,jmax]:=t;//записываем запомненное число в jmax столбец
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 5 do
         Write(p[i,j],'  ');//выводим готовый массив
      Writeln;
   end;
   Readln;
end.

Сойдет?