На экран вывести все числа от 1 до х кратные 8 с while( паскаль)

Program n1;
var x,i: integer;
begin
i:=8;
readln(x);
while i<=x do
begin
write(i,' ');
i:=i+8;
end;
end.