pascal

[FLORA]

помогите пожалуйсто с задачкой.
Подсчитать для вводимого массива количество элементов, входящих в диапозон [0,1]

[Evgeniy26]

обнуляем счетчик, бежим по массиву, если элемент массива >= 0 и <= 1 увеличиваем счетчик.

[FLORA]

покажи плиз как а то я пробую у меня счётчик вечно 1

[Evgeniy26]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, j, Col, Row, Count: Integer;
  Mas: array of array of Real;
begin
  Write('Enter count row: ');
  Read(Row);
  Write('Enter count col: ');
  Read(Col);
  if (Col > 0) and (Row > 0) then
  begin
    SetLength(Mas, Row, Col);
    for i := 0 to Row - 1 do
      for j := 0 to Col - 1 do
      begin
        Write('Mas[' + IntToStr(i) + ', ' + IntToStr(j) + '] =');
        Readln(Mas[i, j]);
      end;
    Count := 0;
    for i := 0 to Row - 1 do
      for j := 0 to Col - 1 do
        if (Mas[i, j] >= 0) and (Mas[i, j] <= 1) then
          Inc(Count);
    Writeln(Count);
    Readln;
  end;

end.