Дан одномерный массив из 15 элементов, заполняется случайным образом вывести все элементы меньше некоторого a

Язык Паскаль желательно побыстрее

Var i, a: integer;

x: array[1 ... 15] of integer;

begin

write ('Введите a: ') ; readln (a) ;

write ('Массив: ') ;

for i : = 1 to 15 do begin

x[i] : = random (20) ;

write (x[i], ' ') ;

end;

write (#10, 'Элементы < a: ') ;

for i : = 1 to 15 do if (x[i] < a) then write (x[i], ' ') ;

end.