Максимальные значения в матрицах

const
n = 10;
m = 10;
 
var
a: array[1..10, 1..10] of integer;
z: array[1..10] of integer;
i, j: byte;
s: real;
inc,max: integer;
 
begin
s := 0;
inc := 0;
randomize;
writeln('Початкова матриця А');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(90);
write(a[i, j]:3);
end;
writeln;
end;
Writeln;
 
for j:=1 to 10 do
begin
max:=a[1,j];
for i:=1 to 10 do 
if a[i,j]> max then max:=a[i,j];
z[i]:=max;
end;
for j:=1 to 10 do
writeln ('B ',j,' stowp4iky',z[j]:5);
 
end.

const
    n = 10;
    m = 10;
 
var
    a: array[1..10, 1..10] of integer;
    z: array[1..10] of integer;
    i, j: byte;
    s: real;
    inc, max: integer;
 
begin
    s := 0;
    inc := 0;
    writeln('Матрица А');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(90);
            write(a[i, j]:3);
        end;
        writeln;
    end;
    Writeln;
    
    for i := 1 to 10 do
    begin
        max := a[1,j];
        for j := 1 to 10 do begin
            if a[i, j] > max then max := a[i, j];
        z[i] := max; end;
    end;
    for j := 1 to 10 do
        writeln('B ', j, ' stowp4iky', z[j]:5);
end.