Даны две квадратные матрицы 5х5 и 6х6 в текстовых файлах. Трансформировать их в другие матрицы

const
  path5x5: array [0..25] of Integer = (
     0,11,20,17,24,
    13, 4, 7,10,21,
    18, 9, 2, 5,16,
    23,14, 3, 6,15,
    22,19, 8, 1,12,0);
  path6x6: array [0..36] of Integer = (
     0, 8,19,30,26,22,
    35,27,16, 5, 9, 1,
    12,25,33,29,21,34,
    23,10, 2, 6,14,18,
    31,20, 7, 3,11,15,
     4,17,28,32,24,13,0);
var
  i, j: Integer;
  a: array [0..35] of Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  for i:=4 downto 0 do for j:=0 to 4 do Read(a[path5x5[i*5+j+1]]);
  for i:=4 downto 0 do begin
    for j:=0 to 4 do Write(' ',a[i*5+j]:4); WriteLn;
  end;
  WriteLn;
  for i:=5 downto 0 do for j:=0 to 5 do Read(a[path6x6[i*6+j+1]]);
  for i:=5 downto 0 do begin
    for j:=0 to 5 do Write(' ',a[i*6+j]:4); WriteLn;
  end;
end.

type
  IntArr = array [0..65534 div SizeOf(Integer)-1] of Integer;
procedure ReadPath(
  var f: Text;
  n: Integer;
  var path);
var
  i, j, k: Integer;
  p: IntArr absolute path;
  d: ^IntArr;
begin
  GetMem(d, n*SizeOf(Integer));
  for i:=n-1 downto 0 do
    for j:=0 to n-1 do
      Read(f, d^[i*n+j]);
  for i:=0 to sqr(n)-1 do begin
    k:=d^[i]+1;
    if k>sqr(n) then k:=1;
    for j:=sqr(n)-1 downto 0 do
      if d^[j]=k then Break;
    p[i]:=j;
  end;
  FreeMem(d, n*SizeOf(Integer));
end;
 
procedure ReadByPath(
  var f: Text;
  n: Integer;
  const path;
  var matrix);
var
  p: IntArr absolute path;
  m: IntArr absolute matrix;
  i, j: Integer;
begin
  for i:=n-1 downto 0 do
    for j:=0 to n-1 do
      Read(f, m[p[i*n+j]]);
end;
 
var
  p5, m5: array [1..5,1..5] of Integer;
  p6, m6: array [1..6,1..6] of Integer;
  f: Text;
  i, j: Integer;
begin
  Assign(f, 'path.txt'); Reset(f);
  ReadPath(f, 5, p5);
  ReadPath(f, 6, p6);
  Close(f);
 
  Assign(f, 'input.txt'); Reset(f);
  ReadByPath(f, 5, p5, m5);
  ReadByPath(f, 6, p6, m6);
  Close(f);
 
  Assign(f, 'output.txt'); Rewrite(f);
  for i:=5 downto 1 do begin
    for j:=1 to 5 do Write(f, m5[i, j]:3, ' '); WriteLn(f);
  end;
  WriteLn(f);
  for i:=6 downto 1 do begin
    for j:=1 to 6 do Write(f, m5[i, j]:3, ' '); WriteLn(f);
  end;
  Close(f);
end.

type koord=record
           x,y:integer;
           end;
const sh5:array[1..5,1..5] of koord=
(((x:3;y:2),(x:3;y:1),(x:2;y:1),(x:2;y:2),(x:2;y:3)),
 ((x:4;y:3),(x:4;y:1),(x:1;y:1),(x:1;y:2),(x:1;y:3)),

//шаблон для перестановки
const sh5:array[1..5,1..5,1..2] of byte=
               (((3,2),(3,1),(2,1),(2,2),(2,3)),
                ((4,2),(4,1),(1,1),(1,2),(1,3)),
                ((4,3),(5,1),(5,2),(1,5),(1,4)),
                ((5,3),(5,4),(5,5),(2,5),(2,4)),
                ((3,3),(4,4),(4,5),(3,5),(3,4)));
var a,b:array[1..5,1..5] of integer;
    f:text;
    i,j:byte;
begin
assign(f,'input.txt');
reset(f);
for i:=1 to 5 do
for j:=1 to 5 do
read(f,a[i,j]);
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    b[i,j]:=a[sh5[i,j,1],sh5[i,j,2]];
    write(f,b[i,j]:4);
   end;
  writeln(f)
 end;
close(f);
end.

  path5x5: array [0..24] of Integer = (
     11, 12,  5,  6,  7,
     16, 15, 10,  1,  2,
     21, 20,  0,  4,  3,
     22, 23, 24,  9,  8,
     17, 18, 19, 14, 13);
  path6x6: array [0..35] of Integer = (
      8, 12,  6, 11, 17,  9,
     14,  3, 19,  1,  2, 15,
     25,  0, 18,  4,  5, 28,
     31, 30,  7, 34, 35, 10,
     13, 33, 22, 16, 32, 21,
     26, 20, 24, 29, 23, 27);

  Write('  path',n,'x',n,': array [0..',n*n-1,'] of Integer = (');
  for i:=0 to n*n-2 do begin
    if i mod n = 0 then begin WriteLn; Write('':4); end;
    Write(p[i]:3,',');
  end;
  WriteLn(p[n*n-1]:3,');');

Read(a[path5x5[i*5+j]]);
...
Read(a[path6x6[i*6+j]]);

{Даны две квадратные матрицы 5х5 и 6х6 в текстовых файлах. Трансформировать их в другие матрицы: каждый элемент 
передвигается на другое место ходом коня, 1-й на 2-е, 2-й на 3-е... 25-й на 1-е на досках 5х5 (открытый маршрут коня)...}
const sh5: array[1..6, 1..6, 1..2] of byte = (((3, 2), (3, 1), (2, 5), (2, 2), (3, 4), (3, 5)), //шаблон для перестановки
                                              ((1, 3), (4, 1), (1, 1), (1, 6), (4, 6), (1, 4)),
                                              ((4, 3), (5, 3), (1, 2), (2, 6), (2, 3), (1, 5)),
                                              ((6, 2), (2, 1), (5, 1), (5, 6), (2, 4), (6, 5)),
                                              ((6, 3), (3, 3), (6, 1), (6, 6), (3, 6), (6, 4)),
                                              ((4, 2), (5, 4), (5, 5), (5, 2), (4, 4), (4, 5)));
var a, b: array[1..6, 1..6] of integer;
    f: text;
    i, j: byte;
begin
 Assign(f, 'it.txt'); ReSet(f);
 for i := 1 to 6 do
  for j := 1 to 6 do
   Read(f, a[i, j]);
 Close(f);
 Assign(f, 'output.txt'); ReWrite(f); 
 for i := 1 to 6 do
  begin
   for j := 1 to 6 do
    begin
     Write(f, a[i, j]: 3);
    end;
    WriteLn(f);
  end;
 for i := 1 to 6 do
  begin
   for j := 1 to 6 do
    begin
     b[i, j] := a[sh5[i, j, 1], sh5[i, j, 2]];     
     Write(f, b[i, j]: 3);
    end;
    WriteLn(f)
  end;
 Close(f);
end.