How to fix errors in Pascal loop-before code?

Question

Pascal

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.

The task itself
1. Enter a number from the keyboard. Calculate how many times it can be divided by 2 until it is < 1.