Процедуры и функции модуля CRT

[малы6ка]

Мне нужна помощь в Pascal....
Составьте программу вывода на экран трех окон. В первое окно введите вертикальную строку текста. Нажатием клавиши Enter организуйте непрерывное движение копий строки по "кольцу" последовательно через второе и третье окно. Направление "бегущей строки" сверху вниз.
Т.е. я не знаю как задать выделенную часть...

[OLEG'arh]

http://sea1608.narod.ru/LK3_2sem.htm - внизу этой страницы то что тебе нужно

[малы6ка]

спасибочки

program l_12_03;
uses
 crt,dos;
 type
 mas1=array[1..7] of char;
const
 c:mas1=('P','A','S','C','A','L',' ');
var
 m1,n1,m2,n2,k:integer;
 ch:char;
 fl:boolean;
 i1,i2,i3:integer;
 scx:word;
 procedure setcur(scx:word);
 var
  r:registers;
 begin
  with r do
  begin
   cx:=scx;
   ax:=$0100;
   intr($10,r);
  end;
 end;

 procedure step(nomw1,nomw2:integer);
 begin
  for i1:=1 to 6 do
  begin
   window(30,nomw1,50,nomw1+6);
   setcur($2000);
   gotoxy(3,i1);
   write(' ');
   delay(50);
   for i2:=1 to 6-i1 do
   begin
    gotoxy(3,i2+i1);
    write(c[i2]);
    delay(50);
   end;
   window(30,nomw2,50,nomw2+6);
   for i3:=1 to i1 do
   begin
    gotoxy(3,i3);
    write(c[6+i3-i1]);
    delay(50);
   end;
  end;
 end;
begin
 setcur($2000);
 textbackground(8);
 clrscr;
 textcolor(6);
 gotoxy(2,24);
 write(' Dlja na4ala najmite <Enter>');
 window(30,10,50,16);
 textbackground(5);
 clrscr;
 textcolor(6);
 window(30,19,50,25);
 textbackground(5);
 clrscr;
 textcolor(5);
 window(30,1,50,7);
 textbackground(5);
 clrscr;
 textcolor(6);
 for i1:=1 to 6 do
 begin
  gotoxy(3,i1);
  writeln(c[i1]);
 end;
 ch:=readkey;
 if ch=#13 then
 begin
  step(1,10);
  step(10,19);
  step(19,1);
  step(1,10);
  step(10,19);
  step(19,1);
  step(1,10);
  step(10,19);
  step(19,1);
  step(1,10);
  step(10,19);
  step(19,1);
 end;
 readkey;
 setcur($0c0d);
 window(1,1,80,25);
end.