Дан массив x(20). Сжать его так, чтобы были удалены все нулевые элементы - Free Pascal

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

Дан массив x(20). Сжать его так, чтобы были удалены все нулевые элементы.

Решение задачи: «Дан массив x(20). Сжать его так, чтобы были удалены все нулевые элементы»

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

n:=20;
............
i:=1;
while i<=n do
if x[i]=0 then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    x[j]:=x[j+1];
    n:=n-1;
   end;
  end
else i:=i+1;

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

n := 20; — Объявляем переменную n и присваиваем ей значение 20, которое является верхним индексом массива.
i := 1; — Объявляем переменную i и присваиваем ей значение 1, которое является первым индексом массива.
while i<=n do — Запускаем цикл, который будет выполняться до тех пор, пока значение переменной i меньше или равно n.
if x[i]=0 then — Если значение элемента массива x с индексом i равно 0, то выполняется следующий блок кода.
begin — Начало блока кода.
if i=n then n:=n-1 — Если значение переменной i равно n, то значение переменной n уменьшается на 1, т.к. удаляя элемент с индексом n, мы уменьшаем размер массива на 1.
else — Если значение переменной i не равно n, то выполняется следующий блок кода.
for j:=i to n-1 do — Запускаем цикл, который будет выполняться от i до n-1.
x[j]:=x[j+1] — Копируем значение элемента массива x с индексом j+1 в элемент с индексом j, т.е. удаляем элемент с индексом i.
n:=n-1 — Уменьшаем значение переменной n на 1, т.к. удаляя элемент с индексом n, мы уменьшаем размер массива на 1.
end — Конец блока кода.
else i:=i+1; — Если значение элемента массива x с индексом i не равно 0, то увеличиваем значение переменной i на 1 и переходим к следующей итерации цикла.
Цикл завершается.