uses crt;
var m:array[1..7,1..7]of integer;
i,j,max:integer;
begin
clrscr;
writeln('Исходная матрица');
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
m[i,j]:=i+j;
write(m[i,j]:3);
end;
writeln;
end;
for j:=1 to 7 do
begin
max:=m[1,j];
for i:=1 to 7 do if m[i,j]>max then max:=m[i,j];
writeln('Максимальный элемент в ',j,'-ом столбце равен',max);
end;
max:=1;
for i:=1 to 7 do if m[i,i]>max then max:=m[i,i];
writeln('Максимальный элемент в главной диагонали равен',max);
max:=1;
for i:=1 to 7 do if m[i,7-1+i]>max then max:=m[i,i];
writeln('Максимальный элемент в побочной диагонали равен',max);
readln;
end.