Помогите,надо сделать на паскале типа пароль звёздачками

[Jeksik]

Задали на паскале сделать по типу открываеш программу он пишет введите пароль ты вводиш пароль он должен сразу вводиться звёздачками наживаеш єнтер ну и он идёт дальше программа.
Помогите хотяби просто сделать что б когда вводиш пароль он сразу становился звёздачками.
Большое спасибо кто отзавётся.

[Arigato]

Надо вместо ReadLn использовать ReadKey и осуществлять ввод посимвольно, при этом выводя на экран звёздочки.

[Stepler]

Пароль вводится в сроку pass

var pass:string;
c:char;
begin
  clrscr;
  while(1>0)do
  begin
   c:=readkey;
   if c=#13 then break;
   write('*');
   pass:=pass+c;
  end;
end.

[Jeksik]

Большое спасибо