program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
   System.SysUtils;


type
   Matrix = Array[1..20] of Array[1..20] of Integer;

var
   Input, Output: text;
   Mat: Matrix;
   i, j, NumberOfStrings, NumberOfColumns, x: Integer;

Procedure Sort(Mat: Matrix; NumberOfStrings, NumberOfColumns: Integer);
var
   NameOfFile: String;
begin
   Writeln('Введите имя файла, в который хотите сохранить результат');
   Read(NameOfFile);
   NameOfFile := NameOfFile + '.txt';
   Assign(Output, NameOfFile);
   Rewrite(Output);
   Writeln(Output, 'Номера столбцов: ');
   Write('Номера столбцов с числами, идущими по возрастанию: ');
   for i := 1 to NumberOfColumns do
   begin
      x := 0;
      for j := 1 to NumberOfStrings - 1 do
      begin
         if Mat[j, i] < Mat[j + 1, i] then                     // i - столбцы, j - строки
            Inc(x);
      end;
      If x = NumberOfStrings - 1 then
      begin
         Write(Output, i,' ');
         Write(i,' ');
      end;
   end;
   Close(Output);
end;

procedure ReadFile(var Mat: Matrix; var NumberOfStrings: Integer; var NumberOfColumns: Integer);
var
   NameOfFile: String;
   IsCorrect: Boolean;
begin
   repeat
      Writeln('Введите имя файла, из которого хотите считать информацию: ');
      Readln(NameOfFile);
      NameOfFile := NameOfFile + '.txt';
      IsCorrect := True;
      try
         Assign(Input, NameOfFile);
         Reset(Input);
      except
         IsCorrect := False;
         Writeln('Не удалось найти файл ', NameOfFile);
      End;
   until IsCorrect;
   while not EoF (Input) do
   begin
      Inc(NumberOfStrings);
      NumberOfColumns := 0;
      while not EoLn(Input) do
      begin
         Inc(NumberOfColumns);
         Read(Input, Mat[NumberOfStrings, NumberOfColumns]);
      end;
      Readln(Input);
   end;
   Writeln('Исходная матрица: ');
   for i := 1 to NumberOfStrings do
   begin
      for j := 1 to NumberOfStrings - 1 do
      Write(Mat[i, j]:2);
      Writeln;
   end;
   Close(Input);
end;
begin
   ReadFile(Mat, NumberOfStrings, NumberOfColumns);
   Sort(Mat, NumberOfStrings, NumberOfColumns);
   Readln;
   Readln;
end.