Двумерные массивы(PascalABCNET)

[FlayGlam]

Дана действительная квадратная матрица порядка n. Выяснить, верно ли, что наибольшее из значений элементов главной диагонали больше, чем наименьшее из значений элементов побочной диагонали.

[newerow1989]

const n=8;
var i,j:integer;
    p:array[1..n,1..n] of real;
    max,min:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(20)+Random;
         Write(p[i,j]:7:4,'  ');
      end;
      Writeln;
   end;
   Writeln;
   max:=p[1,1];
   min:=p[1,n];
   For i:=2 to n do
   begin
      If max<p[i,i] then
         max:=p[i,i];
      If min>p[i,n-i+1] then
         min:=p[i,n-i+1];
   end;
   Writeln(max:7:4,'  ',min:7:4);
   If max>min then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

[FlayGlam]

Пасибо большое

[newerow1989]