Прочитать квадратную матрицу из текстового файла и переписать в новый файл

var f,g:text;
    a,at:array[1..20,1..20] of integer;
    n,i,j,k:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
writeln(g,'Èñõîäíàÿ ìàòðèöà');
read(f,n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(g,a[i,j]:4);
   end;
  writeln(g);
 end;
close(f);
writeln(g,'Òðàíñïîíèðîâàííàÿ ìàòðèöà');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    at[i,j]:=a[j,i];
    write(g,at[i,j]:4);
   end;
  writeln(g);
 end;
writeln(g,'Ãëàâíûå äèàãîíàëè');
for i:=1 to n do
write(g,a[i,i]:4);
writeln(g);
for i:=1 to n do
write(g,a[i,n-i+1]:4);
writeln(g);
writeln(g,'Ëîìàíûå äèàãîíàëè');
for k:=1 to n-1 do//ïàðàëëåëüíî ãëàâíîé
 begin
  for i:=1 to n-k do
  write(g,a[i,i+k]:4);
  for i:=n-k+1 to n do
  write(g,a[i,i-n+k]:4);
  writeln(g);
 end;
for k:=1 to n-1 do//ïàðàëëåëüíî ïîáî÷íîé
 begin
   for i:=1 to n-k do
   write(g,a[i,n-i+1-k]:4);
   for i:=n-k+1 to n do
   write(g,a[i,2*n-i-k+1]:4);
   writeln(g);
 end;
close(g);
end.

var f,g:text;
    a,at:array[1..20,1..20] of integer;
    n,i,j,k:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
writeln(g,'Исходная матрица');
read(f,n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(g,a[i,j]:4);
   end;
  writeln(g);
 end;
close(f);
writeln(g,'Транспонированная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    at[i,j]:=a[j,i];
    write(g,at[i,j]:4);
   end;
  writeln(g);
 end;
writeln(g,'Диагонали');
for k:=0 to n-1 do//главная и параллельно ей
 begin
  for i:=1 to n-k do
  write(g,a[i,i+k]:4);
  for i:=n-k+1 to n do
  write(g,a[i,i-n+k]:4);
  writeln(g);
 end;
for k:=0 to n-1 do//побочная и параллельно ей
 begin
   for i:=1 to n-k do
   write(g,a[i,n-i+1-k]:4);
   for i:=n-k+1 to n do
   write(g,a[i,2*n-i-k+1]:4);
   writeln(g);
 end;
close(g);
end.