Паскаль. Вывести на экран все элементы одномерного массива, которые превосходят заданное числоА

Program gt;
var b:array[1..100000]of real;
A:real;
i,n:integer;
begin
read(n);   // n- кол-во чисел массива
for i:=1 to n do
read(b[i]);
read(A);  //A -заданное число с которым надо сравнить элементы массива
for i:=1 to n do
if(b[i]>A) then write (b[i],' ');
end.