Вывести на экран сумму неположительных и произведение неотрицательных элементов - Free Pascal

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

2. A[i] -массив целых чисел, состоящий из 5 элементов. Элементы массива вводятся пользователем из диапазона [-10,10] Проверка ввода обязательна Выполнить: вывести на экран сумму неположительных и произведение неотрицательных элементов.

Решение задачи: «Вывести на экран сумму неположительных и произведение неотрицательных элементов»

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

Program NameProgram;
uses crt;
const len=5;
type Mas=array[1..len] of ShortInt;
var i:Byte;
    A:Mas;
    mult,sum:integer;
begin
    clrscr;
    Write('Enter Array (Range -10 : 10):');
    for i:=1 to len do
        repeat
            readln(A[i]);
        until (A[i]>=-10) and (A[i]<=10);
    writeln('Array:');
    for i:=1 to len do
        write(A[i],' ');
    writeln;
    sum:=0;
    mult:=1;
    for i:=1 to len do
        begin
            if A[i]>0 then mult:=mult*A[i]
            else sum:=sum+A[i];
        end;
    writeln('Summa: ',sum,' Product: ',mult);
    readln;
end.

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

Объявление программы на языке Free Pascal.
Установка константы len равной 5.
Создание типа данных Mas как массива, имеющего длину len и содержащего элементы типа ShortInt.
Объявление переменной i типа Byte для использования в цикле.
Объявление переменной A типа Mas для хранения массива.
Объявление переменных mult и sum типа integer для хранения суммы и произведения соответственно.
Очистка экрана с помощью функции clrscr.
Вывод приглашения для ввода массива с помощью функции writeln.
Ввод элементов массива с помощью цикла for и функции readln до тех пор, пока все элементы не будут введены.
Вывод массива на экран с помощью цикла for и функции write.
Инициализация переменных sum и mult значением 0 и 1 соответственно.
Перебор элементов массива с помощью цикла for и вычисление суммы и произведения в соответствии с условиями.
Вывод на экран значений sum и mult с помощью функции writeln.
Ввод символа для завершения работы программы с помощью функции readln.
Конец программы.