Матрица Turbo Pascal

[-COREY-]

Дана квадратная матрица nхn.Необходимо вывести все отрицательные элементы, находящиеся в главной и побочной её диагоналях.

Подправьте пожалуйста код(Этот выводит только элементы главной диагонали)

program prog;
uses crt;
var a:array[0..3,0..3] of integer;
    i,j,k:integer;
begin clrscr;
for i:=0 to 3 do
for j:=0 to 3 do
read(a[i,j]);
for i:=0 to 3 do
begin
for j:=0 to 3 do
 for k:=j+1 to 3 do
if a[j,k]<0 then writeln(a[j,k]);
end;
readkey;
end.

[eoln]

  for i:=0 to 3 do
 if a[i,i]<0 then writeln(a[i,i]);
for i:=0 to 3 do
 if a[i,3-i]<0 then writeln(a[i,3-i]);