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

[Akella]

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

[Akella]

еще раз огромное спасибо! вот окончательная версия "Бегущей строки по зигзагу в окне" =)

uses crt;

const
  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;
  c : char;
   s: string;
begin
  textbackground(9);
  clrscr;
  window(1,9,80,14);
  textbackground(2);
  textcolor(4);
  writeln('Vvedite strochku');
  read(s);
  x := 1; y := 1;
  repeat
    while keypressed do c:=readkey;
    clrscr;
    dy := delta;
    print(s, x, y);
    delta := dy;
    next_pos(x, y);
    delay(120); 
  until c=#27;
end.