Kā pareizi varētu pievienot klāt ciklu while do šajā programmā?

Man bija šāds uzdevums: Pēc dotas formulas Y=x*5 aprēķināt visas Y vērtības, ja X pieder intervālam [-9;9] un mainās ar soli 0.5 . Rezultātu izvadīt uz ekrāna un tekstu failā. Šitik tālu es tiku:
Program prakse2;
Uses crt;
Var x,y:integer;
   f:text;

BEGIN

ClrScr;
Assign(f,'Parakse2.txt');
Rewrite(f);
Writeln ('  y = x+0.5');
Writeln;
for x:=-9 to 9 do
begin
  y:=x*5;
  Writeln (' ',y:2,' =',x:2,'*5');
  Writeln (f,y,'=',x,'*5');

end;
Close(f);
readkey;
END.
Kāds man lūdzu varētu pateikt, precīzi, kā un kur būtu jāpievieno klāt ciks while do? Cik es mēģināju, man nesanāca, jo vienīgi, kas man sanāca kaut kādi nesakarīgi skaitļi parādās uz ekrāna un blakus bija E burts vēl.

Komentāri:

#1 LMN @ 2008.01.10 17:23

Nākamajā rindiņā aiz "BEGIN" pieliec šo te:

while true do;

#2 KaNeiet @ 2008.01.10 17:28

"Writeln ('  y = x+0.5');" - nav jēga
Nekur neredzu, ka solis būtu 0.5

#3 normis_161 @ 2008.01.10 18:12

A kā to soli varētu panākt. Man tas visu laiku neiznāk.

#4 clalbus @ 2008.01.10 18:17

i := -9;

while ( i < 9 ) do
begin
  ...
  ...
  dec(i,0.5);
end;

Edit: inc(i,0.5);
P.S. Nestrādā "Labot" :/