Pascal/Turbo Pascal - Calcular raíz cuadrada - While

(* Hola, como hago para usar while en vez de if?. Y que me quede en bucle hasta que introduzca un numero negativo*)


Program RaizCuadrada;

Uses crt, math;

Var numero, raiz_cuadrada : real;
Begin
write ('Ingresa el valor de numero: ');
readln (numero);
If numero>=0 Then
Begin
raiz_cuadrada := sqrt(numero);
End
Else
Begin
raiz_cuadrada := sqrt(-numero);
writeln ('raiz imaginaria');
End;
writeln ('Valor de raiz cuadrada: ', raiz_cuadrada:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
End.

Hola, esto es lo que quieres.
Salu2.

Gracias amigo. Saludos