Умножить значения элементов массива на 20

Const
N = 100;
Var
a :array[1..N] of integer;
i :integer;
Begin
randomize;
for i:=1 to N do a[i]:=-100 + random(200);
for i:=1 to N do if a[i]>0 then a[i]:=a[i]*20 
   else a[i]:=a[i]*17;
End.

Const
N = 100;
Var
a :array[1..N] of integer;
i :integer;
Procedure Mas(var x :integer);
   begin 
   if x>0 then x:=x*20
   else x:=x*17;
   end;
Begin
randomize;
for i:=1 to N do a[i]:=-100 + random(200);
for i:=1 to N do Mas(a[i]);
End.

type
    TVector = Array[Byte] Of Integer;
    TArray = record
        size: Byte;
        vector: TVector;
    end;
 
procedure PrintArray(const x: TArray; const sizeOf: Byte);
var
    i: Byte;
begin
    WriteLn;
    with x do
    begin
        for i:= 0 to size - 1 do
            Write(vector[i]:sizeOf);
    end;
    WriteLn;
end;
 
procedure InitArray(var x: TArray);
var
    i: Byte;
begin
    Randomize;
    with x do
    begin
        repeat
            Write('n='); ReadLn(size);
        until (size > 0);
        for i := 0 to size - 1 do
            vector[i] := Random(200) - 100;
    end;
    PrintArray(x, 5);
end;
 
procedure MainLogic(var x: TArray);
var
    i: Byte;
begin
    with x do
    begin
        for i := 0 to size - 1 do
            if (vector[i] > 0)
            then
                vector[i] := vector[i] * 20
            else
                vector[i] := vector[i] * 17;
    end;
    PrintArray(x, 6);
end;
 
var
    mass: TArray;
begin
    InitArray(mass);
    MainLogic(mass);
end.

var
    vector: Array[Byte] Of Integer;
    i, size: Byte;
begin
    Randomize;
    repeat
        Write('n='); ReadLn(size);
    until (size > 0);
    WriteLn;
    for i := 0 to size - 1 do
    begin
        vector[i] := Random(200) - 100;
        Write(vector[i]:5);
        if (vector[i] > 0)
        then
            vector[i] := vector[i] * 20
        else
            vector[i] := vector[i] * 17;
    end;
    WriteLn;
    for i := 0 to size - 1 do
        Write(vector[i]:6);
end.

a[i]:=-99+Random(198);