Помогите написать програму! плз

[Bodjka]

Даны натуральные числа i, j, вещественная матрица размера M x N. Поменять местами в матрице i-й и j-й столбцы.

[newerow1989]

var p:array[1..m,1..n] of integer;
    i,j,k,z:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Write('i = '); Readln(i);
   Write('j = '); Readln(j);
   For k:=1 to m do
   begin
      z:=p[k,i];
      p[k,i]:=p[k,j];
      p[k,j]:=z;
   end;
   For i:=1 to m do
   begin
      For j:=1 to n do
         Write(p[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?