Задача 18.1. Приклад бiжучого рядка. Рядок символiв (менше 80) пробiгатиме екран дисплею справа налiво, поки користувач не натисне будь-яку клавiшу.

Program Escape_String;
Uses Crt;
Const S='Приклад бiжучого рядка'; {текст бiжечого рядка}
Var n,i:integer; S1,S2:string;
Begin
   ClrScr; {очистити екран}
   i:=1;
   n:=Length(S); {визначити довжину рядка}
 while not KeyPressed do {поки не натиснута будь-яка клавiша}
 begin
 if i<80-n then
 begin
GotoXY(i,13); {перемiщати текст по 13 рядку}
Write(S) {надрукувати текст}
 End
 else
 begin
           s1:=Copy(S,1,80-i);
           S2:=Copy(S,80-i+1,n-80+i+1);
 GotoXY(i,13); Write(S1);
 GotoXY(1,13); Write(S2);
 end;
 Delay(200); {затримка 200 мс}
 ClrScr; i:=i-1;
 if i<1 then i:=80;
 end; {while}
End.