Записать во второй файл все симметрические матрицы из первого, а в третий – остальные

const m=5; //размер матриц
type mtr=array[1..m,1..m] of integer;
var f,g,h:file of mtr;
    a:mtr;
    n,i,j,k,t:integer;
begin
assign(f,'file_1');
rewrite(f);
randomize;
n:=5;//запишем в файл 5 матриц, можно больше
for k:=1 to n do
 begin
  t:=random(2);//симметричная или нет
  if t=0 then //создадим симметричную
   begin
    for i:=1 to m do
    for j:=1 to i do
    a[i,j]:=random(50);
    for i:=1 to m-1 do
    for j:=i+1 to n do
    a[i,j]:=a[j,i];
   end
  else
   begin
    for i:=1 to m do
    for j:=1 to m do
    a[i,j]:=random(50);
   end;
  write(f,a);
 end;
assign(g,'file_2');
rewrite(g);
assign(h,'file_3');
rewrite(h);
writeln('Содержание 1 файла');
reset(f);
for k:=0 to filesize(f)-1 do
 begin
  read(f,a);
  writeln('Матрица ',k+1);
  t:=0;
  for i:=1 to m do
   begin
    for j:=1 to m do
     begin
      write(a[i,j]:3);
      if(j>i)and(a[i,j]<>a[j,i]) then t:=1;
     end;
    writeln;
   end;
  if t=0 then write(g,a)else write(h,a);
 end;
close(f);
reset(g);
if filesize(g)=0 then writeln('Симметричных матриц нет')
else
 begin
  writeln('Файл симметричных матриц');
  for k:=0 to filesize(g)-1 do
   begin
    read(g,a);
    writeln('Матрица ',k+1);
    for i:=1 to m do
     begin
      for j:=1 to m do
      write(a[i,j]:3);
      writeln;
    end;
  end;
 end;
close(g);
reset(h);
if filesize(h)=0 then writeln('Не симметричных матриц нет')
else
 begin
  writeln('Файл не симметричных матриц');
  for k:=0 to filesize(h)-1 do
   begin
    read(h,a);
    writeln('Матрица ',k+1);
    for i:=1 to m do
     begin
      for j:=1 to m do
      write(a[i,j]:3);
      writeln;
    end;
  end;
 end;
close(h);
end.