Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Pascal

Помогите исправить программу, есть такое задание: Поменять местами первый и последний, второй и предпоследний и т.д. столбцы исходной матрицы. (матрица вида 6*6)

Вот что у меня получилось, но мне нужно чтобы она автоматически меняла местами столбцы (первый - последний, второй-предпоседний, ...), а она просит ввода с клавиатуры номеров столбцов, хотя я этого вроде не задавал.

Код:

program pr7;
uses crt;
 const n=6; m=6;
 a:array[1..n,1..m] of real=((0,2,1,2,5,6),
                             (4,5,7,8,1,8),
                             (0,6,2,3,3,4),
                             (5,6,1,9,7,1),
                             (1,2,3,4,5,6),
                             (6,5,4,3,2,1));
 var i,j,k:integer;
 u:real;
 begin
  clrscr;
  read(i,j);
 clrscr;
 for k:=1 to n do
 begin u:=a[k,j]; a[k,j]:=a[k,i];a[k,i]:=u;
 end;
 for j:=1 to n do
 begin for i:=1 to m do write(a[j,i]:3:0);
 writeln;
 end;
 readkey;
 end.