Двумерный массив в паскале

[makc101]

задание-Дана квадратная матрица порядка n(n=5). Если в данной матрице a нет отрицательных элементов, то транспонировать её, иначе выдать сообщение.Использовать подпрограммы.

[MadReason]

всего за 50р напишу)).

[ОДИНОЧЕСТВО В СЕТИ]

type matrix:=array [1..100,1..100] of real;
....
procedure transp(var b:matrix,n:integer); 
var i,j:integer;
begin
for i:=1 to n do
  begin
    for j:=1 to n do
      write(b[j,i]:2,' ');
    writeln;
  end;
....
f:=true;
for x:=1 to n do begin
for y:=1 to n do
if a[x,y]<0 then begin f:=false;break;end;
if not f then break;
end;
if not f  then writeln ('est otr')
else transp(a,n);
....

[Nitriyc]

вот код:

program matr;
  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.