Дано двовимірний масив. Потрібно поміняти місцями два стовбці. Користувач сам вводить, які рядки міняти.

---

program stowbci;
uses crt;
var a:array [1..10, 1..10] of integer;
    i, j, m, n, l:integer;
    x:real;
begin
  clrscr;
  randomize;
  {забиваемо двовимірний масив цілими числами від 0 до 9}
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do a[i, j]:=random(10);
  end;
  {виводимо масив на екран}
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      if j<10 then write(a[i, j], ' ')
      else writeln(a[i, j]);
    end;
  end;
  {відділяємо початковий масив}
  for i:=1 to 20 do
  begin
    if i<20 then write('-')
    else writeln('-');
  end;
  {вводимо номери рядків, які треба поміняти рядками, і міняємо їх}
  readln(m, n);
  for i:=1 to 10 do
  begin
    l:=a[i, m];
    a[i, m]:=a[i, n];
    a[i, n]:=l;
  end;
  {виводимо новоутворений масив}
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      if(j<10) then write(a[i,j], ' ')
      else writeln(a[i][j]);
    end;
  end;

  readln(x);

end.