Замена положительных элементов матрицы, расположенных ниже главной диагонали

uses crt;
const n=5;
var a:array[1..5,1..5]of integer;
i,j,p:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j;=1 to n do
  begin
   a[i,j]:=-20+random(60);
   write(a[i,j]:3);
  end;
  writeln;
 end;
 
 write('Введите Р: ');
 readln(p);
 
 for i:=2 to n do
 for j:=1 to i-1 do if a[i,j]>0 then a[i,j]:=p;
 
 writeln('Преобразованная матрица');
 for i:=1 to n do
 begin
  for j;=1 to n do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.

uses crt;
const n=4;
var a:array[1..n,1..n] of integer;
    i,p,j:integer;
 begin
  ClrScr;
  randomize;
  Writeln('Исходная матрица...');
   for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(20)-2;
      Write(a[i,j]:3);
     end;
     Writeln;
    end;
 Writeln('Введите p...');
 Readln(p);
  for i:=2 to n do
   for j:=1 to i-1 do
    if a[i,j]>=0 then
     a[i,j]:=p;
  Writeln('Матрица-рузультат');
  for i:=1 to n do
  begin
   for j:=1 to n-1 do
    Write(a[i,j]:3);
    Writeln(a[i,n]:3);
  end;
 Readln;
 end.

var
n,i,j,p:integer;
a:array[1..100,1..100]of integer;
begin
randomize;
writeln('vvedite p');
readln(p);
writeln('vvedite n');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20)-10;
writeln('ishodnaya matrica');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if( i>j)and(a[i,j]>0) then a[i,j]:=p;
writeln('novaya matrica');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end.