Умножить все элементы, кратные трем, на третий элемент массива так же в паскаль абц, 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.