Problemas con bucles do/while

[nico.white]

Hola colegas, buenos dias soy bastante nuevo en el tema y no logro encontrar el error en esto.

intente de todo, y no logro darme cuenta del error

el enunciado dice así.
Ingreso la cantidad de km a recorrer y la velocidad crucero.
si la velocidad crucero del auto es menor a 110 km/h
a los 50 litros de combustible con los que empieza el auto se le restaran 0,33litros cada 5 km.
si es mayor a 110 se le restara 0,5 litros cada 5 km
si me quedo sin combustible tengo q mostrar la cantidad de km que recorri

aca va mí código

Variabes:

Código Delphi [-]
 kmar:real;
    velc:integer;
    fuel:real;
    kmfinal:real;  

fuel:=50;
velc:=StrToInt(vel_C.caption);
kmar:=strToInt(km.caption);
if (velc<=110) then
     begin
        begin
          while (fuel>0)do

          (fuel-0.33)
        kmfinal=kmfinal-5;
        end;
     end;         

showmessage ('km recorridos'(floattostring(kmfinal));
end.