Pascal/Turbo Pascal - Problema con las operaciones

Necesito ingresar una secuencia de números y que estos se resten hasta que se ingrese un número que ahora mismo no importa. Mi problema radica en que no sé cómo hacer para que el número no pierda su signo. Por ejemplo, si ingreso un '4' quedaría como (0-(4))=-4.

if (caracter = '-') then begin
operacion:= operacion - num;
end;

Desde ya muchas gracias.