В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше нее - Pascal ABC

Формулировка задачи:

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

var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do a[i,j]:=random (1,n);
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.

Решение задачи: «В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше нее»

Листинг программы

var i,j,n:integer;
a:array[1..1000,1..1000]of integer; 
 begin
 writeln('Введите размерность квадратной матрицы');
 read(N);
 for i:=1 to n do 
 for j:=1 to n do
 begin
 write('введите элемент матрицы: ');readln(a[i,j]);
 end;
for i:=1 to n do
  for j:=i to n do
     a[i,j]:=0;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
     end;
     end.

Объяснение кода листинга программы

Объявляются переменные i, j, n типа integer.
Создается массив a типа array[1..1000,1..1000]of integer.
Пользователю предлагается ввести размерность квадратной матрицы.
Для каждого i от 1 до n (n - размерность матрицы) выполняется цикл.
Внутри цикла для каждого j от 1 до n (n - размерность матрицы) выполняется цикл.
В каждой итерации пользователю предлагается ввести элемент матрицы.
Значение каждого элемента матрицы a[i,j] присваивается переменной a[i,j].
После окончания каждой итерации для i и j выводится значение a[i,j] с помощью функции write.
Выполняется цикл для каждого i от 1 до n.
Внутри цикла выполняется цикл для каждого j от i до n.
Значение каждого элемента матрицы a[i,j] присваивается переменной a[i,j].
После окончания каждой итерации для i и j выводится значение a[i,j] с помощью функции write.
Выполняется цикл для каждого i от 1 до n.
После окончания каждой итерации выводится символ новой строки с помощью функции writeln.
Выполняется цикл для каждого i от 1 до n.
В конце каждой итерации выполняется оператор end.
Выполняется цикл для каждого i от 1 до n.
В конце каждой итерации выполняется оператор end.
Выполняется цикл для каждого i от 1 до n.
В конце каждой итерации выполняется оператор end.