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

 text(x,y,text);

Delay(500);

Uses crt,dos;
var Reg: Registers;
{---------------------------------}
Procedure KursOff; {Убрать курсор, некрасиво с ним}
begin
 with Reg do
  begin
   AH := 1;    {Управление курсором}
   CH := $20   {Убрать курсор}
  end;
 Intr($10,Reg);
end;
{---------------------------------}
Procedure BegStr(y: Integer;str: String;speed: Integer);
Var
  strok : String;
  a, k  : Integer;
Begin
  str:=' '+str;
  k:=80-length(str);//ширина экрана-длина строки(меньше 80)
  for a:=1 to k-1 do
  str:=str+' ';//добавляем в конец пробелы до 79
  repeat
    delete(str,1,1);//удалям первый символ
    gotoxy(1,y);//курсор в начало строки на экране
    delay(speed);//задержка
    delline;//прокрутка на 1 вверх, чтобы строка в линии оставалась
    write(str);//выводим строку
    strok:=copy(str,1,1);//копируем первый символ
    str:=str+strok;//пишем в конец строки
  until keypressed;//по нажатию любой кловиши выход
end;
 
begin
  clrscr;
  Textbackground(7);//установим цвет фона
  TextColor(13);//цвет текста
  KursOff;//уберем курсор
  //будем выводить текст с позиции 10, задержка 200 млс, все это можете поменять 
  BegStr(10,'1234567891011121314151617181920212223242526',200);
  clrscr;
end.