Задача на Паскаль

[WitaliG]

Здравствуйте!
Не могу решить задачу на цикл с параметром:

For5°. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, . . . , 1 кг конфет.

var
    i :integer;
    z,x :real;
begin
    z :=8.45;
    for i :=1 to 10 do
    x :=z / 100;
    write(x);
    readln    end.

У меня код считает только стоимость 100 грамм ?!
Растолкуйте пожалуйста. С уважением Виталий.

[cheef]

program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end.

[WitaliG]

Спасибо тебе, братец, очень все понятно и красиво.