работа с одномерным массивом, компонента TMemo.

[Аделинка]

Дана последовательность действительных чисел a1,...,a10.Заменить все её члены, больше данного z, этим числом. подсчитать кол-во замен.
плиииз помогите решить

[Косюра]

Это все вводится в ТМемо или че.как. расскажи более подробно

[Sparkman]

Сообщение от Аделинка

Дана последовательность действительных чисел a1,...,a10.Заменить все её члены, больше данного z, этим числом. подсчитать кол-во замен.
плиииз помогите решить

Кидаем на форму Memo1, Edit1, Label1, Button1

procedure TForm1.Button1Click(Sender: TObject);
var i,counter:integer;
begin
     counter:=0;
     for i:=0 to Memo1.Lines.Count-1 do
     if StrToFloat(Memo1.Lines.Strings[i])>StrToFloat(Edit1.Text) then
     begin
          inc(counter);
          Memo1.Lines.Strings[i] := Edit1.Text;
     end;
     Label1.Caption:='Количество замен: '+IntToStr(counter);
end;

ПС: проверки на валидность чисел в этом коде нет, каждое число вводить в новую строку компонента TMemo