вектор по диагонали

[бургер]

как сделать чтоб вектор был по диагонали слева на право???
код:
uses wincrt;
var
a:array[1..100,1..100] of integer;
v:array[1..100] of integer;
f,input:text;
i,j,n:integer;

begin
randomize;
assign(f,'output.txt');
assign(input,'input.txt');
reset(input);
readln(input,n);
rewrite(f);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(n*n);
write(f,a[i,j]:4);
end;
writeln(f,' ');
end;
for i:=1 to n do
read(input,v[i]);
clrscr;
writeln('matrix');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln('array');
for j:=1 to n do
write(v[j]:4);

close(input);
close(f);
end.