Построить квадратную матрицу порядка 2n — Pascal(Паскаль)

uses
    crt;
var
   a:array[1..100,1..100] of integer;
   i,k,n:integer;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('matrica por9dka 2n');
     for i:= 1 to 2*n do
              for k:= 1 to 2*n do
                  a[i,k]:=random(10)-2;
      for i:= 1 to 2*n do
              begin
              for k:= 1 to 2*n do
                  write(a[i,k],' ');
                  writeln;
              end;
readkey
end.