treci domaci modifikacija

program modifikacija;
const
  max = 50;

type
  matrica = array[1..max, 1..max] of integer;

var
  a, gt, dt: matrica;
  n,k: integer;
   provera: boolean;

procedure Ucitavanje(n:integer; var a:matrica);
var
   i,j: integer;
begin
  writeln('Unesite elemente matrice' );
   for i:= 1 to n do
       for j:= 1 to n do
    read(a[i,j]);
end;
procedure Ispis(n:integer; var a:matrica);
var
   i,j: integer;
begin
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j], ' ' );
      writeln();
    end;
  writeln();
end;
function Donjetrougaona(o:matrica; n:integer):matrica;
var
   i,j: integer;

begin
  for i:= 1 to n do
    for j:= i+1 to n do begin
    o[i,j]:=0
    end;
   donjetrougaona:= o;

end;
function gornjetrougaona(f:matrica; n:integer):matrica;
var
   i,j: integer;

begin
  for j:= 1 to n do
    for i:=j to n do
      begin
      f[i,j]:= 0;


      end;
   gornjetrougaona:= f;



end;
function transponovana(n:integer; a:matrica):matrica;
var
   i,j,s:integer;
   begin
     for i:=1 to n do
       for j:=i+1 to n do
         begin
         s:= a [i,j];
         a[i,j]:= a [j,i];
         a[j,i] := s;
         end;
transponovana := a;

   end;

begin
  provera := true;
  repeat

  write(output,'Unesite broj kolona i redova kvadratne matrice:');
  read(input,n);
  if (n > max) or (n <= 0) then
      provera := false;

   ucitavanje(n,a);
   ispis(n,a);

   writeln('Transponovana matrica: ');
   a:=transponovana(n,a);
   ispis(n,a);

   writeln ('Gornje trougaona matrica je: ');
   gt:=gornjetrougaona(a,n);
   ispis(n,gt);

   writeln ('Donje trougaona matrica je: ');
   dt:=donjetrougaona(a,n);
   ispis(n,dt);




  until(provera = false) ;


end.