Замена элементов. Двумерные массивы. Паскаль

[vladikson]

Извиняюсь за наглость. Если одномерные еще более менее помнил, то по двумерным почти ничего не помню. Написал только основу, а дальше никак=(
Задача:
Дана действительная матрица a размера (n×m), n,m≤10. В каждом столбце матрицы a
сделать перестановку: поменять местами первый и последний элементы, второй и
предпоследний и т. д.

type
matrix=array[1..10,1..10] of integer;
var
a:matrix;
i,j:integer;
n,m:integer;
begin
writeln('введите размеры матрицы n и m');
write('n=');
read(n);
write('m=');
read(m);
{ Ввод матрицы a}
writeln('введите построчно матрицу a');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
{ Вывод матрицы a}
writeln('Исходная матрица a');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
 
end.