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

program lab22;
uses crt;
var i,j,k,z:integer;
 
begin
    i:=1;
    j:=1;
    textbackground(green);
    window(25,80,65,15);
    clrscr;
    TextColor(darkgray+blink);
     gotoxy(i,j);
    write('Hello!');
 
 
begin
   for k:= 1 to 25 do
   begin
      delay(200);
      textbackground(green);
      clrscr;
     gotoxy(i*3*k,j+k);
      write('Hello!');
      end;   end;
begin
 
   textbackground(brown);
   clrscr;
    gotoxy(57,25);
    textcolor(yellow);
   write('Please press any key...');
 readkey;
 
end;
end.

Program xa;
uses
  crt;
var
  s:string;
  i,n,y1:integer;
  x:array [1..255] of byte;
  c:char;
begin
  clrscr;
  Writeln('VVedite ctroky');
  readln(s);
  clrscr;
  n:=length(s);
  y1:=random(15)+3;
  for i:=1 to n do
    x[i]:=i;
  c:=#0;
  while c=#0 do
  begin
    Delay(10000);
    gotoxy(1,y1);
    clreol;
    for i:=1 to n do
    begin
      if x[i]+1<80 then
        inc(x[i])
      else
        x[i]:=1;
    end;
    for i:=1 to n do
    begin
      gotoxy(x[i],y1);
      Write(s[i]);
    end;
    if keypressed then
      c:=readkey;
  end;
end.

uses crt;
var
mx : integer;
s,b : string;
i : integer;
 
begin
clrscr;
mx := 80;
s := 'Test string';
i := 1;
while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 
 if i=mx then i:=1;
 delline;
 gotoxy(i,1);
 inc(i);
 b := copy(s,1,mx-i);
 write(b);
 delay(50);
 end;
 
end.

uses crt;
var s:string;
l,i:byte;
f:text;
begin
assign(f,'input.txt');{input.txt -текстовый файл,который мы преобразовываем в бегущую строку }
reset(f);
readln(f,s);
close(f);
l:=length(s);
if l<80 then
for i:=1 to 80 do
s:=s+' ';
gotoXY(1,12);
write(copy(s,1,80));
repeat
delay(250);
gotoXY(1,12)  ;
DelLine ;
s:=s+s[1];
delete(s,1,1);
write(copy(s,1,80));
until KeyPressed;
end.