Найти количество ненулевых элементов массива и вывести их номера - Pascal ABC

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

Разработать алгоритм программы, которая вводит последовательность из N чисел, считает количество ненулевых элементов и выводит номера этих элементов .

Решение задачи: «Найти количество ненулевых элементов массива и вывести их номера»

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

uses crt;
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
   For i:=1 to n do
     begin
     Write('a[',i,']=');
     readln(a[i]);
     if a[i]<>0 then inc(x);
     end;
   Writeln;
   Writeln('Массив: ');
   For i:=1 to n do
     write(a[i]:3);
   Writeln;
   Writeln('Ненулевых элементов - ',x);
   For i:=1 to n do
   if a[i]<>0 then writeln('a[',i,']=',a[i]);
end.

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

Импортируется модуль CRT, который содержит функции для работы с консолью.
Задается константа n, которая определяет размер массива.
Создается массив a типа array [1..n] of integer, который будет содержать целые числа.
Создаются две переменные i и x типа integer, которые будут использоваться в цикле и для подсчета количества ненулевых элементов.
Запускается цикл for i:=1 to n, который будет проходить по каждому элементу массива.
Внутри цикла выводится приглашение для ввода значения элемента массива.
С помощью функции readln вводится значение элемента массива и сохраняется в соответствующем элементе массива a[i].
Если значение элемента массива a[i] не равно нулю, то увеличивается значение переменной x на единицу.
После завершения цикла выводится строка, содержащая значения всех элементов массива a.
Выводится количество ненулевых элементов массива, которое равно значению переменной x.
Запускается цикл for i:=1 to n, который будет проходить по каждому элементу массива.
Внутри цикла выводится название и значение ненулевого элемента массива a[i].