помогите с простой программой на паскале

[Endolf]

Если в матрице А(9, 9) на главной диагонали отсутствуют отрицательные элементы, то вывести побочную диагональ.
Элементы матрицы А(9, 9), лежащие выше главной и ниже побочной диагонали, обнулить, а элементы лежащие ниже главной и выше побочной диагонали вывести
задали по информатике, сказали прислать скрин рабочей программы , с программирование как то туго(

[newerow1989]

var a:array[1..9,1..9] of integer;
    i,j:integer;
    otr:boolean;
begin
   Randomize;
   For i:=1 to 9 do
   begin
      For j:=1 to 9 do
      begin
         a[i,j]:=-5+Random(21);
         Write(a[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   otr:=false;
   For i:=1 to 9 do
      If a[i,i]<0 then
      begin
         otr:=true;
         Break;
      end;
   If otr then
      Writeln('yes otr') else
      For i:=1 to 9 do
         Writeln(a[i,i]);
   For i:=1 to 9 do
      For j:=1 to 9 do
         If i<>j then
            a[i,j]:=0;
   For i:=1 to 9 do
   begin
      For j:=1 to 9 do
         Write(a[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.