Умножить все элементы, кратные трем, на третий элемент массива

Так же в Паскаль АБЦ, 10 класс вроде нужно использовать Рандомайз

Uses Crt;

const n=5;

type Vec=array[1 ... n] of longint;

var A: Vec;

i: integer;

begin

ClrScr;

randomize;

for i: = 1 to n do

A[i]:=4+random (7) ;

for i:=1 to n do

Write (A[i]:6) ;

WriteLn; WriteLn;

for i:=1 to n do

if (A[i] mod 3 = 0) then A[i]:=A[i]*A[3];

for i:=1 to n do

Write (A[i]:6) ;

WriteLn;

ReadLn;

end.