Как исправить ошибки в коде Pascal цикл-до?

Question

[Александр Кеффир]

Program Zadcha1;
Var i:integer;
Var n, i:real;
begin
readln (n) ;
I:=0;
repeat
           begin
n:=n/2;
I:=i+1;
end
until (n<1) 
write on ('Можем поделить ', i-1, ' раз') ;
end.

Само задание
1. Ввести с клавиатуры число. Вычислить, сколько раз его можно разделить на 2, пока оно не стало < 1.