Найти, на каком месте находится число в массиве - Pascal

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

1)Усложненную таблицу из N элементов уплотнить так, чтобы сохранить порядок следования ненулевых элементов (т.е. убрать нулевые элементы, поместив их в конец). 2)Заданы массив и некоторое число. Найти, на каком месте находится это число в массиве. Помогите! Пожалуйста!

Решение задачи: «Найти, на каком месте находится число в массиве»

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

begin
randomize;
 for i := 1 to n do
  a[i] := random(20);
readln(value);
num := 0;
for i := 1 to n do
 if a[i] = value then num := i;
if num <> 0 then writeln(num);
readln
end.

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

В данном коде на языке Pascal происходит следующее:

Строка randomize; инициализирует генератор случайных чисел.
В цикле for i := 1 to n do происходит заполнение массива a[i] случайными числами от 0 до 19 с помощью функции random(20).
Пользователь вводит значение числа, которое нужно найти в массиве, с помощью функции readln(value).
Переменная num устанавливается в 0.
В цикле for i := 1 to n do происходит проверка каждого элемента массива a[i] на равенство введенному пользователем значению.
Если найдено совпадение, то переменная num устанавливается в значение индекса текущего элемента.
Если совпадений не найдено, то переменная num остается равной 0.
Выводится значение переменной num, если она не равна 0.
Выводится сообщение readln.
Цикл for i := 1 to n do завершается.
Завершается программа.