Pascal.Массивы.Получить Квадратную Матрицу

uses crt;
var a:array [1..20] of integer;
    b:array [1..20,1..20] of integer;
    i,j,n:integer;
begin
clrscr;
write('n: '); readln(n);
for i:=1 to n do read(a); readln;
for i:=1 to n do begin
    for j:=1 to n do begin
        b[i,j]:=a[(i+j-2) mod n+1];
        write(b[i,j]);
        end;
    writeln;
    end;
readln;
end.

type Mass = array[1..50,1..50] of Integer;

var i, j, n, temp: Integer;
    DMass: Mass;

begin
Randomize;
Write('Vvedite N (stolbcov i strok) = ');
Readln(n);

  for i := 1 to n do
  begin
  // рандом генерация, раскомментируй, что числа были рандомные
 //   DMass[1,i] := Random(50);
//   Write(DMass[1,i], '  ');
// закомментируй следующую строку, если раскоментил предыдущие.
Read(DMass[1,i]);
  end;

 Writeln;
 Writeln;

 // основной код, заполняем (динамическое программирование)
temp := 0;
 for i := 2 to n do
 begin
   if i = 2 then begin for temp := 1 to n do Write(Dmass[1,temp], '  '); Writeln; end;
  for j := 1 to n do
  begin
      if  ((j+1)mod n) = 0 then temp := n
      else temp := ((j+1)mod n);
  DMass[i,j] := DMass[i-1, temp];
    Write(DMass[i,j], '  ');
  end;
 Writeln;
 end;


end.