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

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