Заменить все элементы главной диагонали матрицы на нули - Pascal

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

Дан массив целых чисел размером 4x4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки.

Решение задачи: «Заменить все элементы главной диагонали матрицы на нули»

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

const n=4;
var a:array[1..n,1..n] of integer;
     i,j:byte;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Измененный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=i then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

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

Объявляется константа n со значением 4.
Объявляются переменные a - двумерный массив целых чисел размером n x n, i и j - переменные-счетчики целочисленного типа.
Генерируется случайное значение для каждого элемента массива a[i, j] в диапазоне от 10 до 60.
Выводится сообщение Исходный массив.
В цикле для каждого значения i от 1 до n и для каждого значения j от 1 до n:
- Присваивается случайное значение элементу массива a[i, j] в указанном диапазоне.
- Выводится значение элемента массива a[i, j] с выравниванием в 3 символа.
Осуществляется переход на новую строку.
Выводится сообщение Измененный массив.
В цикле для каждого значения i от 1 до n и для каждого значения j от 1 до n:
- Если индексы строки и столбца равны (j = i), то элементу массива a[i, j] присваивается значение 0.
- Выводится значение элемента массива a[i, j] с выравниванием в 3 символа.
Осуществляется переход на новую строку. Затем программа завершается.