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.