Динамическая структура

[Nitriyc]

вот программа нужно переделать её в динамическу структуру
program lab_6;
const n=5;
type matr=array [1..n,1..n] of integer;
procedure Input(var a:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
end;
procedure Change(var a:matr; var f:byte);
var i,j:byte;
x:integer;
Begin
f:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (a[i,j]>=0) then
begin
if i<j then
begin
x:=a[j,i];
a[j,i]:=a[i,j];
a[i,j]:=x;
end;
end
else f:=0;
end;
end;
end;
procedure Output(const a:matr);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
writeln;
end;
end;
var a:matr;
f:byte;
begin
Input(a);
Change(a,f);
if f=1 then Output(a)
else writeln('est otricatelnoe chislo');
readln;
readln;
End.
вот задание:Дана квадратная матрица порядка n(n=5). Если в данной матрице a нет отрицательных элементов, то транспонировать её, иначе выдать сообщение.
Заранее спасибо