{* Бегущая строка *}

Unit BEGSTR;
Interface
Implementation
Begin
 writeln('На экране появляется бегущая строка.');
End.

Program pas0;

Uses begstr.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  str  : String;
  str2 : String;
  i    : byte;
  k    : byte;
Begin
  clrscr; {* Стираем всё с экрана *}
  str := ' Бегущая строка';
  k := 80 - length(str);
  For i := 1 To k - 1 Do {* Увеличиваем i от 1 до k с шагом 1 *}
    str := str + ' ';
  Repeat  delete(str, 1, 1);
    gotoxy(1, 10);
  write(str);
  delay(4000);
  delline;
  str2 := copy(str, 1, 1);
  str := str + str2;
  Until keypressed; {* Цикл, пока не нажата клавиша *}
End.