matrica, red

PROGRAM matrice;
{type
niz=array[1..20]of integer;
matrica=array[1..20]of niz;
A[1,1];
A[1];
}
//napisati program pomocu koga se za zadatu matricu formira niz
//koji predstavlja maksimume vrsta 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;


begin
    UnosMatrice(m,n,a);
    StampaMatrice(m,n,a);
    for i:=1 to m do x[i]:=maxniza(n,a[i]);
    StampaNiza(m,x);
    readln;
end.