program lab5(input, output);
const
	n = 7;
	m = 8;
var
	Y: array[1..n, 1..m] of integer;
	Z: array[1..m] of integer;
	i, j, max_val: integer;
begin 
	randomize;
 
for i := 1 to n do
for j := 1 to m do 
Y[i, j] := random(100)-50;
writeln('Matrix',n,'*',m, 'Y=');
for i := 1 to n do
begin 
for j := 1 to m do 
write(Y[i, j]:3, '|' );
writeln;
end;
for j := 1 to m do 
begin 
max_val := Y[i, j];
for i := 2 to n do
begin 
if Y[i, j] > max_val then 
max_val := Y[i, j];
end;
Z[j] := max_val;
writeln('colum',j,'max=',Z[j]:3)
end;
writeln('Result:');
for j := 1 to m do 
write(Z[j]:4);
writeln;
readln;
end.