где ошибка?Паскаль

[Tolian92]

вывести на экран двузначные элементы массива в которых есть цифра 4

program as;
var
i: integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
a[i]:= random(200);
for i:=1 to n do
begin
if ((a[i] mod 10)=4) or ((a[i] div 10)=4) then write(a[i]);
end;
readln;
end.

[BDA]

Кросспостинг запрещен.
Ваша тема - http://programmersforum.ru/showthread.php?t=252115
Кто будет n задавать? Условие в if не совсем верное, так как не всегда выбирает только двухзначное число.

[Tolian92]

program as;
var
n := 100
 i: integer;
 a: array [1..n] of integer;
begin
 for i:=1 to n do
  a[i]:= random(200);
 for i:=1 to n do
 begin
if ((a[i] mod 10)=4) or ((a[i] div 10)=4) then write(a[i]);
 end;
 readln;
end.

[type_Oleg]

где ошибка?
Ошибка у Н.Вирта. Он не предусмотрел, что можно

n := 100

до begin

Можно только

const n = 100;