Программа "ожидание" не работает - PascalABC.NET

Формулировка задачи:

почему не работает программа ?

begin
write ('loading.');
sleep (100);
while 1 < 2 do
begin
write ('.');
sleep (100);
write ('.');
sleep (100);
delete ('1', 2, 6);
end;
end.

Решение задачи: «Программа "ожидание" не работает»

Листинг программы

uses crt;
var s:string;
begin
s:='loading.';
while not keypressed do
 begin
  write(s);
  sleep (1000);
  clrscr;
  s:=s+'.';
  write(s);
  sleep (1000);
  clrscr;
  s:=s+'.';
  write(s);
  sleep (1000);
  clrscr;
  delete(s,length(s)-1,2);
 end;
end.

Объяснение кода листинга программы

Импортируется модуль CRT (используется для работы с консолью и клавиатурой).
Объявляется переменная s типа string.
Значение переменной s устанавливается в 'loading.'.
Запускается бесконечный цикл while not keypressed.
В каждой итерации цикла выводится значение переменной s с помощью функции write.
Программа спит на 1 секунду с помощью функции sleep.
Экран очищается с помощью функции clrscr.
Значение переменной s увеличивается на '.' с помощью операции конкатенации (с помощью символа '+' и точка).
Снова выводится значение переменной s с помощью функции write.
Программа спит на 1 секунду с помощью функции sleep.
Экран очищается с помощью функции clrscr.
Значение переменной s увеличивается на '.' с помощью операции конкатенации (с помощью символа '+' и точка).
Снова выводится значение переменной s с помощью функции write.
Программа спит на 1 секунду с помощью функции sleep.
Экран очищается с помощью функции clrscr.
Значение переменной s увеличивается на '.' с помощью операции конкатенации (с помощью символа '+' и точка).
Снова выводится значение переменной s с помощью функции write.
Программа спит на 1 секунду с помощью функции sleep.
Экран очищается с помощью функции clrscr.
Значение переменной s уменьшается на последние 2 символа ('.' и '.'), используя функцию delete. В результате, на экране будет отображаться loading. в течение 4 секунд, после чего будет выведено loadin.