Pascal/Turbo Pascal - tabal multiplicar

Espero que alguien pueda ayudarme.El objetivo del problema es realizar la tabla de multiplicar de los numero introducidos por teclado.Cuando introduzca el -1 saldra SIN MOSTRAR la tabla del -1.Se hacerlo con repeat pero me muestra la tabla del -1 y asi que hay que hacerlo con un while.

Este es mi codigo pero no se repite el programa solo me deja introducir un numero y muestra la tabla y se sale.

program multiplicar;
Var
num,mult,i,c:integer;
BEGIN

while not num=-1 do
begin
writeln("Introduzca un numero");
readln(num);

for i:=1 to 10 do
begin
mult:=num*i;
writeln("",num,"*",i," es ",mult,"");
end;
end;

END.



GRACIAS POR SU AYUDA

program multiplicar;
Var
num,mult,i,c:integer;
BEGIN
writeln("Introduzca un numero");
readln(num);
while not num=-1 do
begin
for i:=1 to 10 do
begin
mult:=num*i;
writeln("",num,"*",i," es ",mult,"");
end; { for }
writeln("Introduzca un numero");
readln(num);
end; { while }

end.

Les agradesco su ayuda, pero otra cosa más si sse puede hacer lka tabl de multiplicar solo con el while y no incluyendo el for