Создать бегущую строку по периметру в паскале

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

Для создания бегущей строки по периметру в Паскале, можно воспользоваться следующим кодом:

uses
Crt;
var
text: string;
i, len, screenWidth: integer;
begin
text := 'Ваш текст здесь';
len := length(text);
screenWidth := 80;
repeat
clrscr;
for i := 1 to screenWidth - len do
write(' ');
writeln(text);
text := text[length(text)] + copy(text, 1, length(text) - 1); // сдвигаем текст на один символ влево
delay(100); // задержка в миллисекундах
until keypressed;
end.

Замените "Ваш текст здесь" на нужную вам строку. Код будет выводить эту строку по периметру экрана и каждые 100 миллисекунд перемещать ее на один символ влево. Для остановки выполнения программы нажмите любую клавишу.