Найдите ошибку в коде (Заменить нулями элементы на главной диагонали матрицы и выше)

const n=5;
var a: array[1..n,1..n] of integer; 
     i,j: byte; 
     sum : integer;
begin
 randomize;
 
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:5);
    end;
   writeln;
  end;
 writeln;  //ввод и печать
 
 sum := 0;
  For i:=1 to n do begin
 For j:=1 to n do
  begin
  if (n-j+1)<i then
   begin
 
   sum := sum + a[i,j];
   end
  else ;
  end;
 writeln;
 end;
writeln;
 
 
writeln('sum= ',sum);
readln;
 
 
 for i:=1 to n do  //замена на нули
  for j:=i to n do
   a[i,j]:=0;
 writeln('результат: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  end; // знн
  
  
end.

 for i:=1 to n do  //замена на нули
  for j:=i to n do
   a[i,j]:=0;

const
  n = 3;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: byte;
  sum: integer;
 
begin
  randomize;
 
  writeln('èñõîäíûé ìàññèâ: ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  writeln;  //ââîä è ïå÷àòü
 
  sum := 0;
  for i := 1 to n do
    for j := 1 to n do
      if i+j>=n+1 then sum:=sum+a[i,j];
  writeln('sum= ', sum);
 
  for i := 1 to n do  //çàìåíà íà íóëè
    for j := i to n do
      if i=j then a[i, j] := 0;
  writeln('ðåçóëüòàò: ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end; // çíí
end.