подпрограммы Опции

[viv]

Помогите пожалуйста разобраться с задачей. Условие такое: в обеих матрицах а(3х3) и b(5х5) порядок следования элементов главной диагонали поменять на обратный. У меня получилось примерно так:

Код

conts n=5
a:array[1..n,1..n] of integer;
t:integer;

....

for i:=1 to (n div 2) do
begin
t:=a[i,i];
a[i,i]:=a[n-i+1,n-i+1];
a[n-i+1,n-i+1]:=t;
end;

[viv]

Так по условию задачи даны две матрицы а(3х3) и b(5x5). Нужно проделать операции обмена с этими двумя матрицами. Я понимаю так, что пользователю предлагатеся ввести снача матрицу а, потом - b. В результате должно быть тоже две матрицы а и b. Вот например код для матрицы а.

Код

Program matrica;
const n=3;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,t:integer;
begin
Writeln('Vvedite matr a:');
for i:=1 to n do
begin
for j:=1 to n do
Readln(a[i,j]);
end;
WriteLn('Isxod massiv');
for i:=1 to n do
begin for j:=1 to n do Write(a[i,j]:3);
WriteLn;
end;
begin
for i:=1 to (n div 2) do begin
t:=a[i,i];
a[i,i]:=a[n-i+1,n-i+1];
a[n-i+1,n-i+1]:=t;
end;
WriteLn('Poluch massiv');
For i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:3);
WriteLn;
end;
end;
end.

Как в программе сделать одновременно ввод, вывод, операцию обмена двух матриц? Я думаю, что нужно использовать процедуры и функции. Пожалуйста подскажите.