Умножение всех элементов вектора на число - Pascal ABC

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

Есть код который вычесляет: умножения всех елементов вектора на число типа реал. Как мне тоже самое сделать, но используя "Процедуры" ??

Program labor6feladat2;
var a,b,c,i,j,k:real; z:array[1..2] of real; n:real;
begin
writeln('Irjon be a vektor X koordinatat: ');
readln(z[1]);
writeln('Irjon be a vektor Y koordinatat: ');
readln(z[2]);
writeln('Vektor :','(',z[1],',',z[2],')');
writeln('Irjon be a valos szamot: ');
readln(n);
writeln('Eredmeny: ');
a:=z[1]*n;
b:=z[2]*n;
writeln('A vektor koordinatai: ','(',a,',',b,')');
end.

Решение задачи: «Умножение всех элементов вектора на число»

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

Program labor6feladat2;
type vec=array[1..100] of real;
procedure umn(var v:vec;n:integer;k:real);
var i:integer;
begin
writeln('Новый вектор');
for i:=1 to n do
 begin
  v[i]:=v[i]*k;
  write(v[i]:0:1,' ');
 end;
end;
 
var z:vec;
    k:real;
    n,i:integer;
begin
randomize;
write('Размер вектора от 1 до 100 n=');
readln(n);
writeln('Исходный вектор');
for i:=1 to n do
 begin
  z[i]:=10*random;
  write(z[i]:0:1,' ');
 end;
writeln;
write('Введите число для умножения k=');
readln(k);
umn(z,n,k);
end.

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

В данном коде объявлен тип данных vec, который представляет собой массив из 100 элементов типа real. Также определен процедурный модуль umn, который принимает на вход вектор v, количество элементов n и число k. Внутри процедуры происходит цикл, в котором каждый элемент вектора умножается на k и выводится на экран. Далее объявлены переменные z, k и n, которые будут использоваться в основной программе. С помощью функции randomize инициализируются генератор случайных чисел и счетчик итераций. Затем пользователю предлагается ввести размер вектора n. Внутри цикла, используя функцию random, генерируется случайное число от 1 до 100 и присваивается каждому элементу вектора z. После этого вызывается процедура umn с аргументами z, n и k. В конце программы выводится сообщение о том, что введенные данные были успешно обработаны.