Прога "Расписание дня недели", Для души =) Опции

[KiRyXA]

Вообщем сабж, копался на компе нашел паскаль , в нем прога когдато в учебное время написал, делать на уроках было нечиго
Прога работает так, пишиш день , она тебе расписание на этот день. Это все я сделал, вот тока проблема что везде почти стоит readln и неебходимо нажимать enter чтобы прога двигалась дальше, как можно поставить задержку ну допустим на пару секунд?? и еще надо чтобы буквы ну тоже был эфект что набираются, т.е не просто появляются предложения, а как бы идет набор букв. что можно сделать?

[amega]

вот можеж посмотреть ету прогу она пишет слово Text по буквам

uses crt;
procedure D;
begin
delay(5000);
end;
Var i: integer;
begin
 clrscr;
for i:=1 to 20 do begin
Write('t');d;
Write('e');d;
Write('x');d;
Writeln('t');d;
end;
Readln;
end.

Что задержка била ето нужно писать например delay(10000) если нужно побольше delay(50000) подключивши модуль crt;

[KiRyXA]

Хм, большое спасибо, вот тока delay не 5000 а 50 000 , тада норма

Добавлено через 16 мин.
ps хоть 60 000 ставь, задержки нету особой, сходу пролетает и все.

[KiRyXA]

И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 6% 7% 8% , и чтобы ненановой строке, а там где 6 там же и остальные символы??

[andriano]

И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 6% 7% 8% , и чтобы ненановой строке, а там где 6 там же и остальные символы??

uses crt;
var i,j : integer;
begin
  for i := 0 to 100 do begin
    write(i,'%');
    delay(100);
    write(#8#8#8#8);
  end;
end.

[KiRyXA]

andriano Спасибо большое!
Я сам искал но толком ничего не нашел, мож кто тыкнет? =)