Бегущая строка зигзагом, ваще не знаю.... Опции

[Akella]

Задачка такая:
при запуске программы пользователь вводит текстовую информаци, которая затем должна выводиться на экран в виде бегуещей зигзагом слева направо по горизонтали строки. Вывод бегущей строки должен происходит в текстовом окне 80х5 символов в середине экрана. Завершение проги по esc.
помогите плиз, не знаю с чего начать алгоритм...

[volvo]

Так, что ли?

uses crt;

const
  s: string = 'running STRING';
  width = 80; { Вот это - размеры "окна", в котором все будет двигаться }
  height = 5;

  delta: integer = 1;

procedure next_pos(var x, y: integer);
begin
  inc(x); inc(y, delta);
  if (y = height) or (y = 1) then delta := - delta;

  if x = width then x := 1;
end;

procedure print(const s: string; x, y: integer);
var i: integer;
begin
  for i := 1 to length(s) do begin
    gotoxy(x, y); write(s[i]);
    next_pos(x, y);
  end;
end;

var
  x, y, dy: integer;
begin
  x := 1; y := 1;
  repeat
    clrscr;
    dy := delta;
    print(s, x, y);
    delta := dy;
    next_pos(x, y);
    delay(120); { <--- Задержку установишь, какую надо }
  until keypressed;

  while keypressed do readkey;
end.