печать текста в форме пилы

[OlifK@]

ЛЮДИ!!!
HELP ME!!!
Моя задачка:ПРОГРАММА ПЕЧАТИ ТЕКСТА В ФОРМЕ ПИЛЫ!!!
О УЖАС!!! КАК РЕШИТЬ?!не знаю! помогите!!!!!!!!!!

[alexBlack]

Есл
и я пра
вильно поня
л, берешь любой
текст и печа
таешь е
го т
ак,
чтобы с
правой стор
оны он выглядел
как пила. И
спользуе
шь пр
ост
ой writeln.

[pil69]

const s:string='Здесь_помещаем_ну_очень_длинный_текст:)';
      d=7;
      t=1;
var i,k,j,h:integer;
begin
j:=1; k:=1; i:=1;
repeat
 for h:=1 to k do
  begin
    write(s[i]);
    inc(i)
  end;
 writeln;
 k:=k+j;
 if (k<t) or (k>d) then j:=-j;
until i>length(s);
writeln
end.

[OlifK@]

приветик,ты все правильно понял! этот текст нужно печатать так как ты показал на примере!