Распечатать в столбик таблицу умножения чисел от 1 до 10 на 0.8

Общий смысл вот такой. Но почему она не работает я не могу понять. Может где ты ошибку найдешь =)
program qq;
var i,a:real;
begin
i:=1;
a:=1;
while i>=10 do begin
a:=i*0.8;
writeln ('0.8*',i,'=',a);
i:=i+1;
end;
end.