Lab 12 main

program PFU;

{$APPTYPE CONSOLE}

uses
  windows,
  sysutils,
  Unit12 in '..\..\..\Documents\Embarcadero\Studio\Projects\Unit12.pas'; {там все константы, типы, процедуры и функции}

var{раздел описания переменных}
  dat,rez:textfile;
  a:matrix;
  n,p,e,m:shortint;
  av:real;
  flag_n,flag_a:boolean;

begin {раздел операторов}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  check_files(dat,rez);
  check_n(dat,n,flag_n);
  writeln('N = ',flag_n,' in program');
  if (flag_n=false) then
      begin
         close_pr(dat,rez);
      end
  else
     begin
        input(a,n,dat,p,e);
        check_a(dat,n,a,flag_a);
        writeln('A = ',flag_a,' in program');
        if (flag_a=false) then
            begin
              close_pr(dat,rez);
            end
        else
           begin
              writeln(rez,'               Типовой расчет');
              writeln(rez);
              writeln(rez,'Исходная матрица из ',n,' строк и ',n,' столбцов');
              output_a(a,n,p,e,rez);
              if (analysis(a,n,P,E,m) = true) then
                  begin
                  check_average_positive(rez,a,n,av);
                  end
              else
                 begin
                    writeln(rez,'в матрице А есть элемент(=',m,'), его абсолютная величина');
                    writeln(rez,'отличается от заданной величины Р(=',p,') менее, ');
                    writeln(rez,'чем на заданную величину Е(=',e,')');
                 end;
              close_pr(dat,rez);
           end;
     end;
end.