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

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.