Умножение вектора на скаляр

unit vektor;
interface
const nmax=100;
var n:byte;
type vek=array[1..nmax] of real;
procedure Vvod(var v:vek;x:byte);
procedure Vyvod(var v:vek;x:byte;c:string);
procedure Scal(var v:vek;x:byte;s:integer);
procedure Summ(v1,v2:vek;x:byte;var v3:vek);
implementation
procedure Vvod;
var i:byte;
begin
for i:=1 to x do
v[i]:=10*random;
end;
procedure Vyvod;
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to x do
write(v[i]:0:2,' ');
writeln;
writeln;
end;
procedure Scal;
var i:byte;
begin
for i:=1 to x do
v[i]:=v[i]*s;
end;
procedure Summ;
var i:byte;
begin
for i:=1 to x do
v3[i]:=v1[i]+v2[i];
end;
end.

uses crt,vektor;
var a,b,c,ab,d:vek;
begin
clrscr;
repeat
write('Размер векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
Vvod(a,n);
Vvod(b,n);
Vvod(c,n);
Vyvod(a,n,'A');
Vyvod(b,n,'B');
Vyvod(c,n,'C');
Scal(a,n,2);
Scal(c,n,3);
Summ(a,b,n,ab);
Summ(ab,c,n,d);
Vyvod(d,n,'2a+b+3c');
readln
end.