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

program Hello;

var

    a,b,c,s,r,m:integer;

begin

  write('Primer numero: ');

  readln(a);

  write('Segundo numero: ');

  readln(b);

  write('Tercer numero: ');

  readln(c);

  s:=abs(a+b+c);

  r:=abs(a-b-c);

  m:=abs(a*b*c);

  writeln('Suma = ',s);

  writeln('Resta = ',r);

  writeln('Producto = ',m);

end.

si a < 0

    a = a * (-1)

sino si b < 0

    b = b * (-1)

sino

    c = c * (-1)