Сгенерировать и вывести на экран массив 10x10 из нулей и единиц

uses crt;
const n=10;{6}
var a,b:array[1..n,1..n] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=round(random-0.4);{a[i,j]:=10*i+j}
       write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Разворот на 90 по часовой стрелке:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[n-j+1,i];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Разворот на 90 против часовой стрелки:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[j,n-i+1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Зеркальное отражение по горизонтали:');
for i:=n downto 1 do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
     end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по вертикали:');
for i:=1 to n do
  begin
    for j:=n downto 1 do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по главной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[j,i];
        write(b[i,j]:3);
      end;
    writeln;
  end;
writeln('Зеркальное отражение по побочной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[n-j+1,n-i+1];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln
end.