Pascal)) составить программу которая выводит на экран бегущую строку

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal, выводящей на экран бегущую строку:

program RunningString;
uses crt;
var
str: string;
i: integer;
begin
str := 'Hello, World!';
repeat
clrscr;
writeln(str);
// Сдвигаем строку на один символ влево
str := copy(str, 2, length(str)-1) + str[1];
// Ждем некоторое время (можно изменить значение для скорости бегущей строки)
delay(200);
until keypressed;
end.

Эта программа будет выводить строку "Hello, World!" на экране, постепенно сдвигая ее на один символ влево и создавая эффект бегущей строки. Для выхода из программы можно нажать любую клавишу.