Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1 - Turbo Pascal

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

Дан массив А из n действительных чисел: a1, …, an. Вычислить: sin|a1|+…+sin|an| Все отрицательные элементы массива увеличить на 0,5, а все неотрицательные заменить на 0,1.

Решение задачи: «Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1»

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

const m = 40;
var a: array [1..m] of double;
    i, n: integer;
    s: double;
begin
  repeat
    write('Enter quantity of elements of array in range [1..]', m, ': ');
    readln(n)
  until (n >= 1) and (n <= m);
  writeln('Enter elements of array:');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      readln(a[i])
    end;
  writeln('Source array:');
  s := 0;
  for i := 1 to n do
    begin
      write(' ', a[i]:19);
      s := s + sin(abs(a[i]))
    end;
  writeln;
  writeln('Sum of sine of modules of elements of array = ', s);
  writeln('Negative elements + 0.5, and other elements equal to 0.1:');
  for i := 1 to n do
    begin
      if a[i] < 0
        then a[i] := a[i] + 0.5
        else a[i] := 0.1;
      write(' ', a[i]:19)
    end;
  readln
end.

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

Создается константа m, которая равна 40.
Создается переменная a, которая представляет собой массив типа double.
Создаются две переменные i и n: i - это переменная-счетчик для цикла, n - это вводимое пользователем количество элементов массива.
Выводится приглашение пользователю ввести количество элементов массива в диапазоне от 1 до m.
Пользователю предлагается ввести количество элементов массива от 1 до m.
Выводится приглашение пользователю ввести элементы массива.
Для каждого i от 1 до n выполняется цикл.
В каждой итерации цикла выводится приглашение пользователю ввести элемент массива A[i].
Вычисляется сумма s = 0.
Для каждого i от 1 до n выполняется цикл.
В каждой итерации цикла выводится приглашение пользователю ввести элемент массива A[i].
Если значение элемента массива A[i] меньше 0, то оно увеличивается на 0.5.
Если значение элемента массива A[i] больше или равно 0, то оно заменяется на 0.1.
Выводится приглашение пользователю ввести элемент массива A[i].
Выводится результат суммы s.
Выводится приглашение пользователю ввести количество элементов массива от 1 до m.
Запрашивается и сохраняется в переменной n новое количество элементов массива.
Выводится приглашение пользователю ввести элементы массива.
Для каждого i от 1 до n выполняется цикл.
В каждой итерации цикла выводится приглашение пользователю ввести элемент массива A[i].