Заменить все отрицательные элементы массива на -1, а положительные на +1 - Turbo Pascal

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

Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1. помогите

Решение задачи: «Заменить все отрицательные элементы массива на -1, а положительные на +1»

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

program pr;
const
Csize=100;
var
  i, n: integer;
  a: array [1..Csize] of integer;
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21) - 10;
    write(a[i]:3);
  end;
  for i := 1 to n do
    if a[i] < 0 then
      a[i] := -1;
      
       for i := 1 to n do
    if a[i] > 0 then
      a[i] := 1;
  writeln;
  writeln('Преобразованный массив');
  for i := 1 to n do
    write(a[i]:3);
end.

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

Программа начинается с объявления константы Csize, которая определяет максимальное количество элементов в массиве.
Затем объявляются переменные i и n, которые будут использоваться для итерации по массиву и его размеру.
Создается массив a, который будет содержать числа от 0 до 20.
Выводится сообщение Введите размер массива, чтобы пользователь мог ввести размер массива.
Считывается введенный размер массива.
Запускается цикл for, который итерируется от 1 до n. На каждой итерации значение переменной i увеличивается на 1.
Внутри цикла вычисляется случайное число от 10 до 20 и присваивается переменной a[i].
Выводится значение a[i] с помощью функции write.
Если значение a[i] меньше 0, то оно заменяется на -1.
Если значение a[i] больше 0, то оно заменяется на 1.
После завершения внутреннего цикла for, запускается еще один цикл for, который итерируется от 1 до n.
Внутри этого цикла проверяется условие if a[i] > 0. Если оно истинно, то значение a[i] заменяется на 1.
Если условие if a[i] < 0 истинно, то значение a[i] заменяется на -1.
После завершения внешнего цикла for выводится сообщение Преобразованный массив.
Запускается еще один цикл for, который итерируется от 1 до n.
Внутри этого цикла выводится значение a[i] с помощью функции write.
Программа завершается.