Получить матрицу C i,j - Turbo Pascal

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

Даны числа А1,..,А10;B1,..,B20.Получить матрицу С i,j,(i=1,..,20;j=1,..,10) Для которой Сi,j=A/(1+Bi). Ребят,помогите!

Решение задачи: «Получить матрицу C i,j»

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

var
    a: Array[1..10] Of ShortInt;
    b: Array[1..20] Of ShortInt;
    c: Array[1..20, 1..10] Of Real;
    i, j: Byte;
begin
    Randomize();
    Write('A:');
    for j := 1 to 10 do
    begin
        a[j] := Random(199) - 99;
        Write(a[j]:4);
    end;
    WriteLn; Write('B:');
    for i := 1 to 20 do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:4);
    end;
    WriteLn; WriteLn('C:');
    for i := 1 to 20 do
    begin
        for j := 1 to 10 do
            if (b[i] = -1)
            then
                Write('inf':8)
            else
            begin
                c[i, j] := a[j] / (1 + b[i]);
                Write(c[i, j]:8:3);
            end;
        WriteLn;
    end;
end.

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

Создаются три переменные типа Array: a, b и c.
- a - массив типа ShortInt размером от 1 до 10.
- b - массив типа ShortInt размером от 1 до 20.
- c - массив типа Real размером от 1 до 20 на 10.
- i и j - две переменные типа Byte.
Выполняется инициализация генератора случайных чисел.
Выводится сообщение 'A:'.
- Выводится значение каждого элемента массива a.
Выводится сообщение 'B:'.
- Выводится значение каждого элемента массива b.
Выводится сообщение 'C:'.
- Выводится значение каждого элемента массива c.
Выполняется цикл по всем элементам массива c.
- Для каждого i-го элемента массива c выполняется цикл по всем j-м элементам массива a.
  - Если значение b[i] равно -1, выводится 'inf'.
  - Иначе, вычисляется значение c[i, j] как отношение a[j] к сумме b[i] и 1.
  - Значение c[i, j] записывается в соответствующий элемент массива c.
  - Выводится значение c[i, j].
Конец программы.