Записать в файл матрицу 10×10, элементы которой последовательно по строкам заполняются натуральными числами 1,2,3, …, 100. Записать в другой файл эту же матрицу, перевёрнутую на 90 градусов против часовой стрелки — Pascal(Паскаль)

Program Shirhan;

var
  a, b: array [1 .. 100, 1 .. 100] of integer;
  i, j, n, p, m: integer;

begin
  n := 10;
  writeln('Vvedite massiv:');

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(a[i, j]);
    end;

  for i := 1 to n do
    for j := 1 to n do
      b[j, i] := a[i, j];

  for i := 1 to n do
  begin
    p := 0;
    for j := 1 to n div 2 do
    begin
      m := b[i, j];
      b[i, j] := b[i, n - p];
      b[i, n - p] := m;
      inc(p);
    end;
  end;
  writeln('Vot massiv A, povernutii na 90*:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(b[i, j]:3);
    writeln;
  end;

  readln;

end.