Program laba2_3;
Uses
  System.SysUtils;
Type
  TMatrixLine = array [1..40] of real;
  Matr = array[1..40] of TMatrixLine;

Procedure ReadFile(Var InputFile : Text; Var Matrix: Matr; Var Size: Byte);
Var
  i, j: Byte;
  NameOfFile: String ;
  CorrectFile: Boolean;
Begin
  Repeat
    Writeln('Введите имя файла, с которого хотите считать информацию: ');
    Readln(NameOfFile);
    NameOfFile := NameOfFile + '.txt';
    CorrectFile := True;
    Try
    Assign(InputFile,NameOfFile);
    Reset(InputFile);
    except
      CorrectFile := False;
      Writeln('Не удалось найти файл ',NameOfFile);
    End;
  Until CorrectFile;
  Read(InputFile,Size);
  For i := 1 to Size do
    For j := 1 to Size+1 do
      Read(InputFile,Matrix[i,j]);
  Writeln('Исходная матрица коэффициентов и свободных членов уравнения: ');
  For i := 1 to Size do
    Begin
      For j := 1 to Size+1 do
        Write(Matrix[i,j]:7:2);
        Writeln;
    End;
  Writeln;
  Close(InputFile);
End;


Procedure Sort(Matrix: Matr; Size: integer);
Var
  i,j: Byte;
  BufferLine : TMatrixLine;
Begin
  while (i <= Size + 1) do
  Begin
    If((Matrix[i][1]) > (Matrix[i-1][1])) then
    Begin
      BufferLine := Matrix[i-1];
      Matrix[i-1] := Matrix[i];
      Matrix[i] := BufferLine;
      i := 1;
    End;
      i := i + 1;
  End;

  Writeln('Полученная треугольная матрица: ');
  For i := 1 to Size do
  Begin
    for j := 1 to Size + 1 do
      Write(Matrix[i,j]:7:2);
      Writeln;
  End;
End;

 //For k:=1 to Size do
  //   Begin
    //   For j:=k+1 to Size+1 do
      //    Begin
        //    Temp:=Matrix[j,k]/Matrix[k,k];
          //  writeln(temp);
            //For i:=k to Size do
              // Begin
                // Matrix[j,i]:=Matrix[j,i]-Temp*Matrix[k,i];
               //End;
         // End;
     //End;



Procedure OutputInFile(Var OutputFile: Text;Var Matrix: Matr;Size:Byte);
Var
  i,j: Byte;
  NameOfFile: String;
Begin
  Writeln('Введите имя файла для записи: ');
  Readln(NameOfFile);
  NameOfFile := NameOfFile + '.txt';
  Assign(OutputFile,NameOfFile);
  Rewrite(OutputFile);
Writeln(OutputFile,'Полученная треугольная матрица: ');
for i := 1 to Size do
  Begin
    for j := 1 to Size+1 do
      Write(OutputFile,Matrix[i,j]:6:2);
      Writeln(OutputFile);
  End;
Close(OutputFile);
End;
Var
  Matrix: Matr;
  Size,i,j: Byte;
  InputFile, OutputFile: Text;
Begin
  Writeln('Данная программа выполняет "прямой ход" в решении',
              'системы линейных алгебраических  уравнений методом Гаусса');
  Writeln;
  ReadFile(InputFile,Matrix,Size);
  Sort(Matrix,Size);
  OutputInFile(OutputFile,Matrix,Size);
  Readln;
End.