Pascal怎么编译个平行四边形?

正:program zhjh;
var
i,j:longint;
begin
for i:=1 to 5 do begin
write('':5-i);
for j:=1 to 5 do
write('*');
writeln;
end;
end.
反:program zhjh;
var
i,j:longint;
begin
for i:=5 downto 1 do begin
write('':5-i);
for j:=1 to 5 do
write('*');
writeln;
end;
end.
可能有点小错误，还请见谅

怎么样?
这样?
.......... .........
. . . .
. . . .
. . . .
.......... .........