Pascal/Turbo Pascal - Que hago para que el resultado no me de negativo

Filtrado por el usuario: buscador
<<>>
Filtrado por el usuario 'buscador' (Eliminar fitro)
 
Vista: