Вывод двумерного массива

[denolend]

Задача : Напечатать диагонали таблицы m*n двигаясь от леого нижнего угла к правому верхнему.
я вроде как придумал алгоритм ,но программа почему-то не работает. Подскажите что добавить или исправить плз.
код:
program napechatat;
uses crt;
Const n=3;
m=3;
var a:array[1..m,1..n] of integer;

i,j,s,ostatok:integer;
begin
clrscr;
randomize;
s:=0;
j:=0;
i:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
s:=s+1;
a[i,j]:=s;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
s:=0;
for j:=1 to n do
begin
for i:=1 to s+1 do
begin
write(a[m-i+j,j]:4);
s:=s+1;
end;
writeln;
end;
writeln;


end.

[zhan313]

Сообщение от denolend

s:=0;
for j:=1 to n do
begin
for i:=1 to s+1 do
begin
write(a[m-i+j,j]:4);
s:=s+1;
end;
writeln;
end;
writeln;
end.

есди матрица квадратная:
for i:=n downto 1 do
for j:=1 to m do
write(a[i,j]:4);
writeln;
end.

[puporev]

uses crt;
Const n=3;
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
clrscr;
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    s:=s+1;
    a[i,j]:=s;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for s:=n-1 downto -n+1 do
 begin
  for j:=1 to n do
  if (j+s>0) and (j+s<=n) then  write(a[s+j,j]:4);
  writeln;
 end;
readln
end.