Нужно переделать задачку)

type
   myArr = array [1..25, 1..25] of integer;
 
var
   massive: myArr;
   n: integer;
   my_file: text;
   file_name: string;
 
procedure fail_v_papke;
begin
   writeln('Введите имя файла:');
   readln(file_name);
end;
 
function readmass: boolean;
var
   My_File: TextFile;
   i, j, error: integer;
   Sij, Sn: string;
 
begin
   result := true;
   fail_v_papke;
   if FileExists(file_name) then 
   begin
      writeln('Файл существует.');
      AssignFile(My_File, file_name);
      Reset(My_File);
      Readln(My_File, Sn);
      val(Sn, n, error);
      if error <> 0 then 
      begin
         writeln('В файле символ!');
         result := false;
      end;
      for i := 1 to n do
         for j := 1 to n do
         begin
            readln(My_File, Sij);
            val(Sij, massive[i, j], error);
            if error <> 0 then
            begin
               writeln('В файле присутствует символ!'); 
               result := false;
            end;  
         end;
      
      if result then
         for i := 1 to n do
         begin
            for j := 1 to n do
               write(massive[i, j], ' ');
            writeln;
         end;
      close(My_File);
   end
   else 
   begin
      writeln('Файл не существует!');
      result := false;
   end;
end;
 
procedure proverka_and_print(massive: myArr; n: integer);
var
   i, j, count, kolichestvo_strok: integer; flag: boolean;
begin
   kolichestvo_strok := 0;
   Assign(my_file, 'output.txt');
   ReWrite(my_file);
   for i := 1 to n do
   begin
      count := 1;
      repeat
         flag := true;
         for j := 1 to n do
            if massive[i, j] = count then
            begin
               inc(count);
               flag := false;
            end;
      until (n = count - 1) or flag;
      if (n = count - 1) then
         inc(kolichestvo_strok);
   end;
   writeln('Количество строк,представляющих собой перестановки чисел: ', kolichestvo_strok);
   writeln(my_file, 'Количество строк,представляющих собой перестановки чисел: ', kolichestvo_strok);
   close(my_file);
end;
 
begin
   if readmass then 
      proverka_and_print(massive, n);
end.