Pascal/Turbo Pascal - ayuda con un programa en pascal !!

Wenas a todos,
quería saber si alguien me puede ayudar a hacer un programa en pascal que muestre en pantalla 100 asteriscos en cualquier posición de la pantalla, vamos, aleatoriamente. Esque estoy empezando en esto de la programación y necesito hacer esto.
Gracias de antemano. : )

Bueno... a ver.

var Cantidad: byte;

begin
randomize; { Inicializamos el generador de números al azar. }

for Cantidad:=1 to 100 do { Hacemos cien veces esto... }
begin
gotoxy ( { Vamos a la posición de pantalla... }
(random(80)+1), { Obtenemos un número al azar entre 1 y 80. }
(random(25)+1) { Y otro entre 1 y 25 para las filas... }
);
write('*'); { ...Escribimos el asterisco... }
end;
end.

Claro que puede pasar que ya halla un asterisco en la posición donde vallamos a escribir... pero bueno. Te das una idea, ¿no?

Saludos y felices compiladas.

Es casi lo mismo que ya te ibdicó M@arcelo, pero este te permite más flexibilidad:

Procedure Caracteres_al_Azar(Caracter: Char; Cantidad :Byte);
Var
X, Y :Byte;
Begin
Randomize;
While (Cantidad>0) do
Begin
X := Random(79)+1;
Y := Random(24)+1;
GotoXY(X, Y);
Write(Caracter);
Dec(Cantidad);
End; {While}
End; {Caracteres_al_Azar}

Para hacer lo que quieres, puedes llamar al procedimiento así:
Caracteres_al_Azar('*', 100);

Espero que te sea de utilidad. Si necesitas ayuda en cualquier otra cosa sobre Pascal, envíame un e-mail. Saludos ;-)

Es casi lo mismo que ya te ibdicó M@arcelo, pero este te permite más flexibilidad:

Procedure Caracteres_al_Azar(Caracter: Char; Cantidad :Byte);
Var
X, Y :Byte;
Begin
Randomize;
While (Cantidad>0) do
Begin
X := Random(79)+1;
Y := Random(24)+1;
GotoXY(X, Y);
Write(Caracter);
Dec(Cantidad);
End; {While}
End; {Caracteres_al_Azar}

Para hacer lo que quieres, puedes llamar al procedimiento así:
Caracteres_al_Azar('*', 100);

Espero que te sea de utilidad. Si necesitas ayuda en cualquier otra cosa sobre Pascal, envíame un e-mail. Saludos ;-)