Найти наибольшее число - Free Pascal

Найти наибольшее число вида 1/2^n(n>=0) ,меньшее а(положительное число а задано).

Листинг программы

var a,x:real;
begin
write('Введите положительное число a=');
readln(a);
x:=1;
while x>=a do
x:=x/2;
write('x=',x:0:4);
readln
end.

Объяснение кода листинга программы

Объявлены две переменные типа real: a и x.
Пользователю предлагается ввести положительное число для переменной a.
Затем, в цикл while, который выполняется до тех пор, пока значение переменной x больше или равно значению переменной a, выполняется следующее действие:
Значение переменной x делится на 2.
После выхода из цикла, значение переменной x выводится на экран с помощью функции write.
Программа завершается, ожидая ввода пользователя с помощью функции readln.