program lab2_3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
   fileIN: TextFile;
   matrix: array of array of integer;
   i, j: integer;
   //temp, mnoj : double;
const
    stolb = 4;
    strok = 3;

begin
    SetLength(matrix, strok, stolb);
    AssignFile(fileIN, 'myfile.txt');
    reset(fileIn);
    while (not EOF(fileIN)) do
    for i := 0 to strok do
        for j := 0 to stolb do
            read(fileIn, matrix[i, j]);
    CloseFile(fileIn);
    for i := 0 to strok do
    begin
        for j := 0 to stolb do
            write(matrix[i, j], ' ');
        writeln;
    end;
    //for i := 1 to strok do
      //  for j := 0 to stolb do
        //begin
          //  temp := matrix[i - 1, 0];
            //mnoj := (matrix[i, 0] / temp) * -1;
            //matrix[i, j] := matrix[i, j] + (temp * mnoj);
        //end;
    //AssignFile(fileOut, 'fileOut.txt');
    //while (not EOF(fileOut)) do
    //for i := 0 to strok do
      //  for j := 0 to stolb do
        //    write(fileOut, matrix[i, j]);
   readln;
end.