Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше ее.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=3;
  m=3;
var
  a:array[1..n,1..m] of integer;
  i,j,k:byte;
  sum:integer;
begin
  randomize;
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-10+random(40);
        if a[i,j]>0 then sum:=sum+a[i,j];
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
        else
          write(a[i,j]:3);
      end;
 
  writeln;
  k:=0;
  for i:=1 to n do
    for j:=i to n do
      a[i,j]:=0;
  for i:=1 to n do
    for j:=1 to m do
      begin
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
        else
          write(a[i,j]:3);
      end;
  writeln;
  writeln(sum);
  readln;
end.