Дан двухмерный массив. Выполнить следующее преобразование

[masha11111111]

В двумерном массиве поменять местами в каждом столбце первый элемент и последний минимальный элемент

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,im,z:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(11);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 10 do
   begin
      im:=1;
      For i:=2 to 10 do
         If p[i,j]<=p[im,j] then
            im:=i;
      z:=p[1,j];
      p[1,j]:=p[im,j];
      p[im,j]:=z;
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

[masha11111111]

Не уверена, но надеюсь, спасибо с:

[newerow1989]