matrice, kolone

program kolone;

//napisati program pomocu koga se za zadatu matricu formira niz
//koji predstavlja maksimume kolona zadate matrice

type
    niz=array[1..20]of integer;
    matrica=array[1..20]of niz;
var
    m,n,i,j,k:integer;
    x,y,z:niz;
    a,b,c:matrica;

procedure UnosMatrice(var m,n:integer; var a:matrica);
var i,j:integer;
begin
    write('Broj vrsta: ');
    readln(m);
    write('Broj kolona: ');
    readln(n);
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
        write('A[',i,';',j,']= ');
        readln(A[i,j]);
        writeln;
        end;
    end;
end;


procedure StampaMatrice(m,n:integer; A:matrica);
var i,j:integer;
begin
    writeln;
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
        write(A[i,j]:4);
        end;
        writeln;
    end;
    writeln;
end;

 procedure StampaNiza (n:integer; x:niz);
 var i:integer;
 begin
    write('Elementi niza: ');
    for i:=1 to n-1 do  write (x[i],',');
    writeln(x[n]);
 end;

function maxniza(n:integer;x:niz):integer;
var i,max:integer;
begin
    max:=x[1];
    for i:=2 to n do if (x[i]>max) then max:=x[i];
    maxniza:=max;
end;

procedure transponovanje(m,n:integer;A:matrica; var b:matrica);
var i,j:integer;
begin
    for i:=1 to n do
    begin
        for j:=1 to m do
            b[i,j]:=a[j,i];
    end;
end;

begin
    UnosMatrice(m,n,a);
    StampaMatrice(m,n,a);

    transponovanje(m,n,a,b);
    StampaMatrice(n,m,b);
    for i:=1 to n do x[i]:=maxniza(m,b[i]);
    StampaNiza(n,x);

    readln;
end.