Problemas con bucles do/while

[nico.white]

El usuario deberá indicar cuántos km recorrerá.
cada 5 km (a una velocidad constante,llamémosla crucero, menor a 110km/h) que el simulador reduzca 0,33l (l=litro) de
combustible.
Si es mayor (pero constante) que 110km/h, el gasto de combustible debería ser
0,5l por cada 5km.
El nivel de combustible deberá ser full (lleno), con 50l al iniciar el viaje.
necesario que se controle si el tanque alcanza para realizar el viaje propuesto
(y mediante una ventana emergente: indicar tal situación).

el ejercicio debe resolverse con for, while, o repeat a eleccion

f= fuel
fuel =contador

Código Delphi [-]
  f:=50;
  kmfinal:=0;
  velc:=StrToInt(vel_C.caption);
  kmar:=strToInt(km.caption);
      if (velc <=110) then
      begin
      for fuel:=50 downto 0
        do
        repeat
        f:=f-0.33;
        resu:=kmar-5;
      until f=0;
         kmsr.text:= floatToStr(resu);
           showmessage('sin combustible');
          showmessage(floattostr(f));
          end
          else if (velc>110) then
          begin
          for fuel:=50 downto 0
            do
            repeat
            f:=f-0.5;
            resu:=kmar-5;
             until f=0;
     kmsr.text:= floatToStr(resu);
           showmessage('sin combustible');
          showmessage(floattostr(f));


end;
          end;

entra en un bucle infinito.
me doy por vencido (por hoy)

agradezco su ayuda