Дан одномерный массив из 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.