Дан массив из...

Дан массив из 20 вещественных чисел заполненный случайным образом.Вывести на печать те эементы , которые меньше0.5

 

Var i: byte;
    a: array [0..19] of real;
begin
     for i := 0 to 19 do
     begin
          a := random(100) / 50;
          writeln('[', i, '] => ', a);
     end;
     writeln('-----------------');
     for i := 0 to 19 do
         if (a < 0.5) then writeln('[', i, '] => ', a);
end.

=)