2_1

program Project2;
{$APPTYPE CONSOLE}
uses
   System.SysUtils;
type
   List = array of Integer;
const
   EnterError = 'Error! N should be natutal number from 1 to 31';
   FileError = 'Error! Check file data';

procedure InputN(var N : Integer);
var
   IsCorrect : Boolean;
   Input : string;
begin
   IsCorrect := False;
   repeat
      try
         Writeln('Enter N - the number of days');
         Readln(Input);
         N := StrToInt(Input);
         if(N < 1) or (N > 31) then
            Writeln(EnterError)
         else
            IsCorrect := True
      except
         on E : EConvertError do
            Writeln(EnterError);
      end;
   until IsCorrect;
end;

procedure InputFromFile(N : Integer; var Days : List);
var
   InputFile : TextFile;
   i, LastIndex : Integer;
begin
   try
      AssignFile(InputFile, 'input.txt');
      Reset(InputFile);
      SetLength(Days, N);
      LastIndex := N - 1;
      for i := 0 to LastIndex do
         Read(InputFile, Days[i]);
      CloseFile(InputFile);
   except
      Writeln(FileError);
   end;
   for i := 0 to LastIndex do
      Write(Days[i], ' ');
end;

function GetAmountOfColdDays(var Days : List) : Integer;
var
   Counter, i, LastIndex : Integer;
begin
   Counter := 0;
   LastIndex := High(Days);
   for i := 0 to LastIndex do
      if Days[i] < 0 then
         Inc(Counter);
   GetAmountOfColdDays := Counter;
end;

procedure Main();
var
   N : Integer;
   Days : List;
begin
   Writeln('This program can cal how many times temperature was below 0 degrees');
   InputN(N);
   InputFromFile(N, Days);
   Writeln('');
   Writeln('There are ', GetAmountOfColdDays(Days), ' days with < 0 degrees');
   Readln;
end;

begin
   Main();
end.