Напишите фрагмент программы - Free Pascal

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

В одномерном массиве небольшой размерности (10-20) элементов происходит замена тех элементов, модуль которых равен 1. Массив заполняется случайными числами в диапазоне от -10 до 10.

Решение задачи: «Напишите фрагмент программы»

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

var i,chislo,n:integer;
    a:array[1..20] of integer;
Begin
 writeln('vvedite chislo dla zameni-');
 readln(chislo);
 writeln('vvedite chislo elementov massiva-');
 readln(n);
 randomize;
 for i:=1 to n do
  a[i]:=10-random(20);
 writeln('dannii massiv-');
 for i:=1 to n do
  write(a[i] ,' ');
 for i:=1 to n do
  if abs(a[i])=1 then a[i]:=chislo;
  writeln('polychennii massiv-');
 for i:=1 to n do
  write(a[i] ,' ');
End.

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

Переменная i инициализируется как счетчик цикла.
Переменная chislo используется для получения значения от пользователя.
Переменная n используется для получения количества элементов массива от пользователя.
Переменная a инициализируется как массив 20 элементов.
Цикл for перебирает элементы массива a от 1 до n.
Каждый элемент массива a инициализируется случайным числом от 0 до 19.
Цикл for выводит значения массива a на экран.
Цикл for проверяет каждый элемент массива a на абсолютное значение равное 1.
Если значение элемента массива a равно 1, то этот элемент заменяется на значение переменной chislo.
Цикл for выводит измененные значения массива a на экран.