Заполнение экрана зиг-загом (по диагонали) символом "*"

[Joistick]

Доброго времени суток.
(Паскаль)
Задание звучит так: заполнить экран символом "*" змейкой (по диагонали) с нижнего левого угла к верхнему правому.
Что-то я ломаю голову и никак не могу прийти к нужному решение. Подскажите, что не так (хотя, подозреваю - многое не так) Схему заполнения можно посмотреть на картинке

Не судите строго - я лишь пару месяцев назад познакомился с программированием)))

PHP код:

program zigzag;
type
zzarray = array [1..n, 1..m] of char;
var zz:zzarray;

procedure FillMatr(var zzz:zzarray; n:integer; m:integer; ch:char);
var i, j:byte;
begin

for i:=1 to n do
    for j:=1 to m do
    zzz[i,j]:=ch;
    end;

procedure RunThruMatrix (var zz:zzarray; n:integer; m:integer);
var i,j, direction: integer;
begin
direction:=1;
if (i=0) then begin
direction:=-direction;
i:=i+1;
j:=j+2; 
end;
if (i=n+1) then
begin
direction:=-direction;
i:=i-1;
end;

if (j=0) then
begin
direction:=-direction;
j:=j+2;
end;

if (j=m+1) then begin
direction:=-direction;
j:=j-1;
i:=i-2;
Write(zz[i,j]);
end;
end;

    Begin
    ClrScr;
    FillMatr(zz,n,m,'*');
    RunThruMatrix(zz,n,m);
end.