Membuat bentuk belah ketupat dengan pascal

uses crt;
var
a,n,x,y,i,j:integer;
begin
clrscr;
write('masukan n:');readln(n);
y:=15;
for i:= 1 to n do
begin
x:=n;
a:=n;
   for j:=1 to i do

   begin
   gotoxy(x,y);write('*');
   gotoxy(a,y);write('*');
   dec(x);
   inc(a);
   end;
   inc(y);
   writeln;
   end;
for i:=(n-1) downto 1 do
begin
x:=n;
a:=n;
   for j:=1 to i do
   begin
   gotoxy(x,y);write('*');
   gotoxy(a,y);write('*');
   dec(x);
   inc(a);
   end;
   inc(y);
   writeln;
   end;

readln;
end.

hasil :