Решение задачи Matrix 87

program Matrix87;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  MaxX,MaxY,M, i, j:Integer;
 
begin
 Write('M: ');
 Readln(M);
 
 for  j:=1 to M do
  begin
   writeln(j,': ');
   for i:=1 to M do
    begin
     Write(i,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for j:=1 to M-1 do
  begin
   for i:=1 to j do
    if (a[i,j-i+1]>a[MaxX,MaxY]) or (i=1) then
     begin
      MaxX:=i;
      MaxY:=j-i+1;
     end;
 
   Writeln(a[MaxX,MaxY]);
  end;
 
 for j:=M-1 downto 1 do
  begin
   for i:=1 to j do
    if (a[M-j+i,M-i+1]>a[MaxX,MaxY]) or (i=1) then
     begin
      MaxX:=M-j+i;
      MaxY:=M-i+1;
     end;;
 
   Writeln(a[MaxX,MaxY]);
  end;
end.