var a:array[1..8, 1..8] of integer;

   max, i, j:integer;

begin

  randomize;

  max:=0;

  for i:=1 to 8 do

   for j:=1 to 8 do

   a[i,j]:=random(200);

   for i:=1 to 8 do

    for j:=1 to 8 do

    if i+j=9 then

      begin

     if a[i, j]>max then max:=a[i, j];

     end;

    for i:=1 to 8 do

     begin 

    for j:=1 to 8 do

     write(a[i, j]:5); 

    writeln; 

    end; 

    writeln('Максимальный элемент=', max);

  end.