Доброго времени суток! Прошу вашей помощи в написании программы и сосавлении блок-схемы. Заранее спасибо!

Ввести целое N , если N > 0 , то составить программу, рисующую
зигзаг из N чередующихся сегментов, составленных символами «*».
Например, для N = 3:
*
----*
--------*
----*
*
----*
--------*

без символа "-".

Что тут делать-то?

var
  i, di, j, n: integer;

begin
  readln(n);

  i := 0; di := - 1; j := 0;
  while j <= n do
  begin
     writeln('':i*2, '*');
     if (pred(n) = i) or (i = 0) then
     begin
        di := -di; inc(j);
     end;
     inc(i, di);
  end
end.

(блок-схему рисовать не буду, лень... Хоть что-то ты должен сделать сам?)

Большое Вам спасибо!

Был не уверен, что writeln('*':2*i+1) прижмет к правому краю?