Ayuda con hacer un algoritmo que multiplique con signo

[Natuta]

Hola, soy novata en esto, y tengo que hacer un algoritmo que me lea dos números y me muestre el producto usando sumas sucesivas  (esto ya lo hice)y no así la multiplicación, pero con signo.

Ahora mi problema es que no se como hacer que me lea el signo al introducir los números y que al devolver el resultado, lo haga también (obviamente) con signo!
Esto es lo que hice, si alguien pudiera ayudarme estaría muy agradecida, está en Pascal


program EJ8;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };


    function simulacion(n,m:longInt):Longint;
     var
     s,i:Longint;
     begin
     s:=0;
     i:=0;
     while (i<m) do
     begin
     s:=s+n;
     i:=i+1;
     end;
     simulacion:=s;
     
     end;
     
 
var
  n,m,pro:LongInt;
 
begin
write('Escriba un numero');
Readln(n);
writeln('Escriba otro numero');
readln(m);
pro:=simulacion(n,m);
Writeln(n,' x ',m,' = ',pro);

end.