Подсчитать количество элементов массива удовлетворяющих условиe

[vAselek]

Подсчитать количество элементов массива х, удовлетворяющих условию -1<=хi<=1 и переписать их в массив Y.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var x,y:array[0..n] of real;
    i,j:Integer;
Begin
    try
    For i:=0 to n do
    x[i]:=StrToFloat(StringGrid1.Cells[0,i]);
    j:=0;
    For i:=0 to n do
           if (x[i]>-1) or (x[i]=-1) or (x[i]<1) or (x[i]=1)
            then
                 begin
                      y[j]:=x[i];
                      j:=j+1;
                 end
            else ShowMessage('Íåò ýëåìåíòîâ óäîâëåòâîðÿþùèõ óñëîâèå -1<=x<=1');
    Label1.Caption:=('Êîëè÷åñòâî ýëåìåíòîâ â ìàññèâå Y:'+IntToStr(j));
    except
        on E:Exception do
        ShowMessage(E.ClassName+' îøèáêà ñ ñîîáùåíèåì : '+E.Message);
    end;
End;

end.

Выдает ошибку "is not a valid floating point value". Пыталась вводить всевозможные форматы вещественных данных, но все равно выдает одну и ту же ошибку.

[Serge_Bliznykov]

ну значит, у Вас в stringgrid в какой-то ячейке (допустим в левой верхней) находится текст (заголовок), а не число.

и, кстати, Вы знаете, что так, как Вы описали, нужно чтобы было в стрингрид минимум 5 строчек, заполненных сверху вниз?

кроме того, у Вас ошибочно задано условие проверки.
нужно использовать условие AND (И)
примерно так:

    For i:=0 to n do
           if (x[i]>=-1) and (x[i]<=1) then
                 begin
                      y[j]:=x[i];
                      j:=j+1;
                 end