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

const
  Direction = 'C:\File.txt';
  n = 7;
  m = 2;
var
  Matr: array[1..n, 1..m] of Integer;
  BoolS, BoolD: boolean;
  Summa: Integer;
  FileTxt: text;
  i, j: Byte;
begin
  BoolS:=false; BoolD:=false;
  Summa:=1;
  writeln('Показательи давления из файла: ');
  assign(FileTxt, Direction);
  reset(FileTxt);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(FileTxt, Matr[i, j]);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  close(FileTxt);
  for j:=1 to m do
  begin
    Summa:=0;
    for i:=1 to n do
      inc(Summa, Matr[i, j]);
    if (j = 1) and (Summa / n > 135) then BoolS:=true
    else if (j = 2) and (Summa / n > 85) then BoolD:=true;
  end;
  writeln('Повышено ли систолическое давление? ', BoolS);
  writeln('Повышено ли диастолическое давление? ', BoolD);
end.