Использование модуля CRT Опции

[Гость]

Помогите написать программку. Вообще не имею понятия как ее написать...

Организовать вывод в окне заданного размера двух символов, "перепрыгивающих" друг через друга и двигающихся по горизонтали.

[Bokul]

Можно и так:

procedure jump(r:byte; c:char; Var x,y,dir:byte);
var i:byte; b:boolean;
begin
  for i:=1 to 2*r do begin
      gotoxy(x,y);  write(' ');
      if (x=lo(windmax)-lo(windmin)) or (x=0) then
         dir:=-dir;
      inc(x,dir);
      if i<=r then dec(y)
         else inc(y);
      gotoxy(x,y);  write©;
      delay(time);
  end;
end;

Добавлено через 17 мин.
Т.е. полный вариант выглядит так:

uses crt;

const
  time=100;

procedure jump(r:byte; c:char; Var x,y,dir:byte);
var i:byte; b:boolean;
begin
  for i:=1 to 2*r do begin
      gotoxy(x,y);  write(' ');
      if (x=lo(windmax)-lo(windmin)) or (x=0) then
         dir:=-dir;
      inc(x,dir);
      if i<=r then dec(y)
         else inc(y);
      gotoxy(x,y);  write©;
      delay(time);
  end;
end;


var x1,y1,x2,y2:byte;
    dir1,dir2:byte;
begin
  window(10,1,50,25);
  TextBackGround(blue);
  clrscr;
  dir1:=1; dir2:=1;
  x1:=3; y1:=10;
  x2:=6; y2:=10;
  repeat
    jump(5,'a',x1,y1,dir1);
    jump(5,'b',x2,y2,dir2);
  until keypressed;
end.

[Гость]

Спасиба большое.
Я только одного не понял... что делает переменная dir?