uses crt var array of integer max integer begin clrscr writeln Исходна

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.