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

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.