Заменить каждый элемент массива его знаком - Pascal ABC

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

Дан массив из n целых чисел.Заменить каждый элемент массива его знаком(положительный элемент-знаком "+",отрицательный элемент-знаком "-",нули-знаком "=").Для замены числа символом использовать соответствующую подпрограмму.

Решение задачи: «Заменить каждый элемент массива его знаком»

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

var a:array[1..50] of integer;
    b:array[1..50] of char;
    n,i:byte;
begin
randomize;
repeat
write('Размер масссивов от 1 до 50 n=');
readln(n);
until n in [1..50];
writeln('Массив чисел');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
writeln('Массив символов');
for i:=1 to n do
 begin
  if a[i]>0 then b[i]:='+';
  if a[i]<0 then b[i]:='-';
  if a[i]=0 then b[i]:='=';
  write(b[i]:4);
 end;
end.

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

Создается переменная a типа array[1..50] of integer, что означает создание массива из 50 целых чисел.
Создается переменная b типа array[1..50] of char, что означает создание массива из 50 символов.
Создаются двебайтовые переменные n и i для контроля цикла.
Используется функция randomize для инициализации генератора случайных чисел.
Запускается цикл repeat, который будет выполняться до тех пор, пока n не станет равным 0 или больше 50.
Внутри цикла выводится сообщение с запросом размера массива a.
После получения размера массива a выводится сообщение с запросом размера массива b.
Запускается цикл for, который будет выполняться для каждого элемента массива a от 1 до n.
Внутри цикла вычисляется значение a[i] и присваивается переменной a[i].
Выводится значение a[i] в формате 4-х знаков.
Если значение a[i] положительное, то переменной b[i] присваивается символ '+'.
Если значение a[i] отрицательное, то переменной b[i] присваивается символ '-'.
Если значение a[i] равно 0, то переменной b[i] присваивается символ '='.
После вывода значения b[i] выводится символ новой строки.
По завершении цикла for выводится символ новой строки.
Завершается программа.