Случайные массивы - Pascal

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

Даны два случайных массива одного размера, создать третий массив, значения которого - это сумма значения двух предыдущих (a[1]+b[1]=c[1]) Заранее огромное спасибо

Решение задачи: «Случайные массивы»

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

var
    a, b, c: Array[Byte] Of Integer;
    i, n: Byte;
begin
    Randomize();
    repeat
        Write('Input array"s length: ');
        ReadLn(n);
    until (n > 0);
    Write('A:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:5);
    end;
    WriteLn; Write('B:');
    for i := 0 to n - 1 do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:5);
    end;
    WriteLn; Write('C:');
    for i := 0 to n - 1 do
    begin
        c[i] := a[i] + b[i];
        Write(c[i]:5);
    end;
end.

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

Создаются три массива типа Array[Byte] Of Integer: a, b и c.
Задается начальное значение для переменной i и n.
В цикле повторяется до тех пор, пока n > 0.
Выводится запрос на ввод длины массива.
Выводится название массива A.
В цикле for происходит заполнение массива a случайными числами от 0 до 99.
Выводится значение каждого элемента массива a.
Выводится название массива B.
В цикле for происходит заполнение массива b случайными числами от 0 до 99.
Выводится значение каждого элемента массива b.
Выводится название массива C.
В цикле for происходит заполнение массива c суммой элементов массивов a и b.
Выводится значение каждого элемента массива c.
Выводится сообщение о завершении работы программы.