Pascal/Turbo Pascal - DIAGONAL INVERTIDA DE UNA MATRIZ

HOLA !! necesito ayuda para realizar la impresion(que me muestre por pantalla), una diagonal inversa de una matriz(n) en PASCAL de esta manera:

1 1 1 0
1 1 0 1
1 0 1 1
0 1 1 1

Los CEROS son los valores que deseo imprimir, les agredecia mucho su ayuda cuanto antes =).

[es loquee pides espero lo sea]

program muestra;
uses
crt;
type
arraymatriz = array[1..4,1..4] of integer;
var
matriz : arraymatriz;
y, x, i, t : integer;

begin
clrscr;
textcolor(15);
gotoxy(2,2);write('Entre valores matriz');
y := 4;
for i := 1 to 4 do
begin
y := y + 3;
x := 3;
for t := 1 to 4 do
begin
gotoxy(3,3);write('matriz : ', i,'-',t);
gotoxy(x,y);read(matriz[t,i]);
gotoxy(x,y);write(matriz[t,i]);
x := x + 3;
end;
end;
i := 1;
t := 4;
x := 15;
y := 3;
clrscr;
textcolor(14);
repeat
gotoxy(x,y);write(matriz[t,i]);
y := y + 3;
x := x - 3;
t := t - 1;
i := i + 1;
until i > 4;
textcolor(15);
repeat until keypressed;
end.

MUCHAS GRACIAS RAMON !! SI ESO ESTABA BUSCANDO , GRACIAS KAPO.