Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками. - Turbo Pascal

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

Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале.

3.Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками.

Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.

Решение задачи: «Дан массив А(15). Положительные элементы заменить единицами, отрицательные-нулями, нули-девятками.»

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

var
  a : array [1..15] of integer;
  i : integer;
begin
  writeln('вводим массив:');
  for i := 1 to 15 do
  begin
    write('[', i, '] = ');
    readln(a[i])
  end;  
  writeln('исходный массив:');
  for i := 1 to 15 do write(a[i]:4);  
  writeln;
  writeln('после замены:');
  for i := 1 to 15 do
  begin
    if a[i] > 0 then a[i] := 1 else
      if a[i] = 0 then a[i] := 9 else 
        a[i] := 0;
    write(a[i]:4)
  end;
  readln
end.

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

Создается переменная a типа array [1..15] of integer. Это означает, что создается массив из 15 элементов типа integer.
Выводится сообщение «вводим массив:», чтобы пользователь мог ввести данные для массива.
С помощью цикла for перебираются элементы массива от 1 до 15.
Внутри цикла выводится сообщение «[», номер элемента, '] = », чтобы пользователь мог ввести данные для элемента массива.
Чтение данных происходит с помощью функции readln(). Введенные данные сохраняются в переменной a[i].
После ввода всех данных выводится сообщение «исходный массив:», чтобы пользователь мог увидеть исходные данные массива.
С помощью цикла for перебираются элементы массива от 1 до 15.
Внутри цикла выводится значение каждого элемента массива с помощью функции write().
После вывода всех данных выводится символ новой строки (writeln()).
Выводится сообщение «после замены:», чтобы пользователь мог увидеть измененные данные массива.
С помощью цикла for перебираются элементы массива от 1 до 15.
Внутри цикла проверяется значение каждого элемента массива.
Если значение элемента больше 0, то оно заменяется на 1.
Если значение элемента равно 0, то оно заменяется на 9.
Если значение элемента равно 0, то оно заменяется на 0.
Значение каждого измененного элемента выводится с помощью функции write().
Заканчивается выполнение программы.