Program Lambang Nazi

Program lat1;
Uses crt;
var
i,j,n,x:integer;
y:real;
begin
clrscr;
        readln(n);
        x:=2*(n)-1;

        for i:= 1 to x do
        begin

                for j:= 1 to x do
                begin
                if (i=1) and (j<n) then write('x ')
                else
                if (j=n) then write('x ')
                else
                if (i=x) and (j>n) then write('x ')
                else
                if (i=n) and (j<>n) then write('x ')
                else
                if (j=x) and (i<n) then write('x ')
                else
                if (j=1) and (i>n) then write('x ')
                else write('  ');
                end;
        writeln;
        end;
readln;
end.