Модуль CRT - Создать окно и ввести в него небольшой текст - Turbo Pascal

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

Здравствуйте, требуется помощь в написании программы:

Создать окно и ввести в него небольшой текст. Слова разделять пробелами. Организовать новое окно, в котором будет выводиться этот текст следующим образом: слова появляются друг за другом с интервалом 3 сек. В течении этих трех секунд звучит звуковой сигнал.

Заранее спасибо за помощь.

Решение задачи: «Модуль CRT - Создать окно и ввести в него небольшой текст»

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

uses crt;
var s:string;i,j,x:integer;c:char;
s1:array [1..10] of string;
begin
clrscr;
window(5,3,35,15);
textbackground(6);
clrscr;
readln(s);
j:=1;
for i:=1 to ord(s[0]) do
begin
s1[j]:=s1[j]+s[i];
if s[i]=' ' then j:=j+1;
end;
 
window(5,3,35,15);
textbackground(5);
textcolor(1);
clrscr;
for i:=1 to j do
begin
writeln(s1[i]);delay(50000);
end;
readkey;
textmode(3);
sound(1200);delay(3000);nosound;
end.

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

Подключается библиотека CRT.
Объявляются переменные: s - строка, в которую будет вводиться текст; i, j, x - целые числа; c - символ.
Объявляется массив s1 размером [1..10] of string.
Выводится сообщение на экран и очищается экран.
Пользователю предлагается ввести текст.
Инициализируется переменная j.
Запускается цикл for, который проходит по каждому символу введенного текста.
Внутри цикла происходит следующее:
- Переменная s1[j] инициализируется значением s1[j-1] (так как индексация в паскале начинается с 0).
- Если текущий символ является пробелом, то переменная j увеличивается на 1.
Выводится сообщение на экран.
Очищается экран.
Запускается цикл for, который проходит по каждому символу введенного текста.
Внутри цикла происходит следующее:
- Выводится значение переменной s1[i].
- Задержка в 50000 мс (5 секунд).
Пользователю предлагается ввести ключевую клавишу.
Выводится код на экране.
Отключается звук.
Выводится режим вывода текста.