Решите второе , надо! паскаль abc

Program NoName;

Var i,D,n,k:integer;

a:array[1..9999] of integer;

Begin

k:=0;

Read (D);

Write('Количество цифер в массиве ');

Read (n)

For i:=1 to n do

Begin

If (a[i] >0)and(a[i]< D) then k:=k+1;

End;

Write (k)

End.

Program Noname;

Var n,i:integer;

a:array[1..9999] of integer;

Begin

Read (n);

For i:= 1 to n do

Begin

If (a[i] mod 3 = 0) then

a[i] := a[3];

Write (a[i]);

End;

End.

Скажу сразу, не проверял, возможно несколько недочётов упустил, но основа есть