Сортировка естественным слиянием

[(Нафаня)]

После ввода строк появляется ошибка о том, что файл не найден. Какой-то косяк с сортировкой

В текстовом файле находятся строки(не более 30). Отсортировать файл в порядке возрастания длин строк

const
  n=5;
Procedure MergeSort(name:string; var f:text); {Естественное слияние}
Var
  s1,s2,a1,a2,where,tmp:integer;
  f1,f2:text;
Begin
  s1:=5;
  s2:=5; {числа, которые запустят while }
  Assign(f,name);
  Assign(f1,'fil1.txt');
  Assign(f2,'fil2.txt');
  While (s1>1) and (s2>=1) do
    begin
     where:=1;
     s1:=0;
     s2:=0;
     Reset(f);
     Rewrite(f1);
     Rewrite(f2);
     Read(f,a1);
     Write(f1,a1,' ');
     While not EOF(f) do
       begin
         read(f,a2);
         If (a2<a1) then
           begin
             Case where of
               1: begin
                    where:=2;
                    inc(s1);
                  End;
               2: begin
                    where:=1;
                    inc(s2);
                  End;
             End;
           End;
        Case where of
          1: write(f1,a2,' ');
          2: write(f2,a2,' ');
        End;
      a1:=a2;
    End;
  If where=2 then
    inc(s2)
  else
    inc(s1);
  Close(f);
  Close(f1);
  Close(f2);
  Rewrite(f);
  Reset(f1);
  Reset(f2);
  Read(f1,a1);
  Read(f2,a2);
  While (not EOF(f1)) and (not EOF(f2)) do
    begin
      If (a1<=a2) then
        begin
          Write(f,a1,' ');
          Read(f1,a1);
        End
      else
        begin
          Write(f,a2,' ');
          Read(f2,a2);
        End;
    End;
  While not EOF(f1) do
    begin
      tmp:=a1;
      Read(f1,a1);
      If not EOF(f1) then
        Write(f,tmp,' ')
      else
        Write(f,tmp);
    End;
  While not EOF(f2) do
    begin
      tmp:=a2;
      Read(f2,a2);
      If not EOF(f2) then
        Write(f,tmp,' ')
          else
            Write(f,tmp);
        End;
      Close(f); Close(f1); Close(f2);
    End;
  Erase(f1);
  Erase(f2);
End;
var
  s:string;
  g:text;
  i:integer;
  a:array[1..n] of string;
begin
  Assign(g,'fil.txt');
  for i:=1 to n do
    begin
      readln(s);
      a[i]:=s;
    end;
  for i:=1 to n do
    MergeSort(a[i],g);
  close(g);
end.

[Stilet]

Assign(g,'fil.txt');

Это можно убрать. У тебя есть Assign(f,name);
Насчет проблемы: Файл действительно может отсутствовать, ибо ты его нигде в коде не создаешь.

read(f,a2);

Файл текстовый. Поэтому используй readln а не read.

[Utkin]

Если Делфи то для автоматизации можно заюзать TStringList. Или это учебная задача?

[(Нафаня)]

Задача учебная

Здесь указала путь к файлу

Assign(f,name); 

Assign(f,'C:\text\fil.txt');

Теперь ошибка, что проект вызвал исключение класса EInOutError с сообщнием 'I\O error 103'

[Utkin]

C:\text\fil.txt

Прямо вот такое имя файла? Fil, а не file?

[Stilet]

Assign(f,name);

Assign(f,'C:\text\fil.txt');

Зачем два раза одно и то же?
Ошибка у тебя возникает потому что такого файла не существует. Тебе его нужно сначала создать, а уже потом с ним работать.

[(Нафаня)]

Utkin
Прям такое имя)

Stilet
Это не 2 раза одно и то же, это то, как я переделала(теперь вторая строка вместо первой=)). Я создала файл, но все равно ошибка, но только теперь "проект вызвал исключение класса EInOutError c сообщением 'I/O error 103'"

[Stilet]

103 File not open Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

Еще раз повторюсь: Файл не открыт, так как ты его не создала.
Сделай его сначала в блокноте, а потом и открывать можно.

[Utkin]

Прям такое имя)

Ну тогда да, его надо создать. Я подозреваю что это 'fil1.txt' или 'fil2.txt'