Внешняя сортировка (естественное слияние)

[(Нафаня)]

В этой строке выдает ошибку о том, что оператор, не применим к этому типу операнда

if a[i,i]<a[i+1,i+1] then

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

program zad1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=4;
type
  mas=array [1..n] of integer;
  matr=array [1..n,1..n] of mas;
  tfile=file of matr;
var
  a:matr;
  i,j,c:integer;
  f:tfile;
  b:mas;
begin
  assign(f,'C:\text\fil.txt');
  reset(f);
  rewrite(f);
  while not eof(f) do
    begin
      if i<=n then
        for i:=1 to n do
          if a[i,i]<a[i+1,i+1] then
            begin
              c:=a[i+1,i+1];
              a[i+1,i+1]:=a[i,i];
              a[i,i]:=c;
              write(f,b[i]);
            end
          else
      writeln('error');
  end;
  close(f);
end.

[Serge_Bliznykov]

во-первых, какое отношение заголовок темы имеет к решаемой задаче?!

во-вторых, формально, ответ на ваш вопрос такой

if a[i,i]<a[i+1,i+1] then

на эту строчку Delphi резонно ругается, т.к. элементами двухмерного массива A являются МАССИВЫ
т.е. нужно записывать a[i,j][ИндексМассива] , a[i+1,i+1][ИндексМассива]

в-третьих,

tfile=file of matr;

Вы уверены, что Ваш fil.txt является двоичным файлом трёхмерных матриц?!
мне интуиция подсказывает, что у вас обычный текстовый файл, что абсолютно не соответствует вашему описанию файла!

в чётвертых, Вы сразу после открытия файла его стираете командой rewrite...

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

пишу код прямо на форуме, без проверки, да и решение задачи исключительно "в лоб":

rogram zad1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const MasCountString = 30;
var
  sMas:array[1..MasCountString] of string;
  s : string;
  i,j,n:integer;
  f:TextFile;
begin
  {чтение файла в массив}
  assign(f,'C:\text\fil.txt');
  reset(f);
  n:=0;
  while Not EOF(f) and (n<MasCountString) do begin
     Inc(n);
     ReadLn(f, sMas[n]);
  end;
  CloseFile(f);
  
  {сортировка массива строк по длинам строк}
   for i:=1 to n-1 do
     for j:=i+1 to n do
     begin
       if Length(sMas[i])>Length(sMas[j]) then
        begin
         s:=sMas[i];
         sMas[i]:=sMas[j];
         sMas[j]:=s;
        end;
     end;
 
 {запись отсортированного файла в исходный файл}
 Rewrite(f); {стираем == перезаписываем файл}
 for i:=1 to n do WriteLn(f, sMas[i]);
 CloseFile(f);

end. {конец программы}

[(Нафаня)]

Спасибо за помощь. Я немного нуб в программировании(