Перемножить элементы двух матриц, имеющие одинаковые индексы - Turbo Pascal

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

Заданы одномерные матрицы размерностью 40 элементов, заполненные случайными числами из диапазона [1, 150]. Перемножить их элементы, имеющие одинаковые индексы, и вывести результаты на экран и записать в файл "output.txt".

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

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

uses  Crt;
const n = 40;
      tab = '   ';
type int = 1..n;
     mas_typ = array [int] of integer;
var mult : integer;
    i    : byte;
    mas1, mas2, mas3 : mas_typ;
    f : text;
    
Procedure massiv(var mas:mas_typ; size:int);
          var i : byte;
          begin
               Randomize;
               for i:=1 to size do
                   mas[i]:= Random(150)+1;
          end;
BEGIN
     ClrScr;
     massiv(mas1, n);
     massiv(mas2, n);
     
     for i:=1 to n do
         mas3[i]:= mas1[i] * mas2[i];
     for i:=1 to n do
     begin
         Write(mas1[i]:4, ' x ', mas2[i]:3, ' = ', mas3[i]:5);
         Writeln;
     end;
     
     Assign(f, 'C:\output.txt');
     Rewrite(f);
     for i:=1 to n do
     begin
         Write(f, mas1[i], #9, 'x', #9, mas2[i], #9, '=', #9, mas3[i]);
         Writeln(f);
     end;
     Close(f);
END.

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

В начале кода подключается библиотека Crt, которая содержит функции для работы с памятью.
Затем определяется переменная n, которая будет использоваться для определения размера массивов.
Определяется тип данных int, который будет использоваться для представления чисел в массивах.
Создаются три переменные mas_typ, которые будут использоваться для хранения массивов.
Создается переменная mult, которая будет использоваться для хранения результата умножения.
Создаются две переменные i и f, которые будут использоваться для итерации по массивам и вывода результатов.
В процедуре massiv инициализируются случайным образом все элементы массива mas с помощью функции Randomize и цикла for.
Вызывается процедура massiv дважды для массивов mas1 и mas2.
Затем происходит итерация по всем элементам массива mas3, где каждый элемент вычисляется как произведение соответствующих элементов массивов mas1 и mas2.
Выводится результат каждого произведения на экран с помощью функции Write.
Записывается результат каждой операции в файл output.txt с помощью функции Assign и Rewrite.
Закрывается файл с помощью функции Close.