Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры) - Turbo Pascal

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

Дано: L(6), X(8), Y(9). Сформировать массив Z (3), где Z (1)- количество чисел 5 в массиве L, Z (2)- количество чисел 5 в массиве X , Z (3) - количество чисел 5 в массиве Y. Вычисление количества чисел 5 в массиве оформить в виде подпрограммы.

Решение задачи: «Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры)»

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

uses crt;
type mas=array[1..10] of integer;
var a,b,c,d:mas;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=random(i+n);
end;
procedure outvect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
procedure newvect(var xa,xb,xc,x:mas;n,m,p:integer);
 var i,k,l,j:integer;
begin
k:=0;
 for i:=1 to n do
  begin
  if xa[i]=5 then
     inc(k);
  if xb[i]=5 then
   inc(j);
  if xc[i]=5 then
   inc(l);
  end;
 x[1]:=k;
 x[2]:=j;
 x[3]:=l;
end;
begin
 clrscr;
  writeln('ГЏГҐГ°ГўГ»Г© Г¬Г*Г±Г±ГЁГў :');
   invect(a,6);
   outvect(a,6);
 writeln;
  writeln('Г‚ГІГ®Г°Г®Г© Г¬Г*Г±Г±ГЁГў :');
   invect(b,8);
   outvect(b,8);
 writeln;
  writeln('Г’Г°ГҐГІГЁГ© Г¬Г*Г±Г±ГЁГў :');
   invect(c,9);
   outvect(c,9);
   newvect(a,b,c,d,6,8,9);
  writeln;
   writeln('ГЌГ®ГўГ»Г© Г¬Г*Г±Г±ГЁГў :');
    outvect(d,3);
 writeln;
 
 readkey;
end.

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

В начале кода подключается библиотека crt.
Создается тип данных mas, представляющий массив целых чисел размером от 1 до 10.
Определяются четыре переменные типа mas: a, b, c и d.
Определяется процедура invect, которая принимает в качестве параметра массив x и число n. Эта процедура случайным образом заполняет n элементов массива x числами от 1 до n+n.
Определяется процедура outvect, которая принимает в качестве параметра массив x и число n. Эта процедура выводит n элементов массива x на экран.
Определяется процедура newvect, которая принимает в качестве параметров массивы xa, xb, xc и x, а также числа n, m и p. Эта процедура увеличивает соответствующие элементы массива x на единицу, если соответствующий элемент массива xa, xb или xc равен 5. Затем она присваивает значения 1, 2 и 3 элементам массива x соответственно.
Код начинается с вызова процедуры clrscr для очистки экрана, а затем выводятся заголовки для каждого из трех блоков вывода.
Вызывается процедура invect для массива a с аргументом 6.
Вызывается процедура outvect для массива a с аргументом 6.
Вызывается процедура invect для массива b с аргументом 8.
Вызывается процедура outvect для массива b с аргументом 8.
Вызывается процедура invect для массива c с аргументом 9.
Вызывается процедура outvect для массива c с аргументом 9.
Вызывается процедура newvect для массивов a, b, c и d с аргументами 6, 8 и 9.
Вызывается процедура outvect для массива d с аргументом 3.
Выводится символ новой строки с помощью функции readkey.