Ayuda con un programita

Tengo una duda con el siguiente programa, específicamente se trata de ingresar 3 números, donde si n1 es mayor a n2 los reste, si n1 es menor a n2, los sume, y si son iguales los multiplique, el problema esta en que cuando ingreso los números iguales, me los suma y multiplica, estoy recién en esto, abajo va el programa escrito.
Gracias.
program ejer2guia;
uses
wincrt;
var
N1,N2,rest,mult,sum:integer;
resp:char;
begin
resp:='s';
while (resp='S') or(resp='s') do
begin
writeln('INGRESE N1:');
readln(N1);
writeln('INGRESE N2:');
readln(N2);
if N1>N2 then
begin
rest:=N1-N2;
writeln('LA DIFERENCIA ENTRE N1 Y N2 ES:',rest);
end
else
begin
sum:=N1+N2;
writeln('LA SUMA ENTRE N1 Y N2 ES:',sum);
end;
if N1=N2 then
begin
mult:=N1*N2;
writeln('LA MULTIPLICACION ENTRE N1 Y N2 ES:',mult);
end;
writeln ('');
writeln ('');
writeln('DESEA SEGUIR INGRESANDO MAS DATOS:(S/N)');
readln(resp);
end
end.