применение пользовательских процедур(delphi)

[elenasul]

Нужно написать код для задачи:
Для каждого из массивов А(8),В(9) определить количество чисел,попавший в интервал [C,D].
Повторяющуюся часть алгоритма реализовать с помощью подпрограммы-процедуры.
Код:

unit Unit1;

interface

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


type MAS=ARRAY[1..12] of Real;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure CMAX(C:MAS;N:INTEGER;var NC:WORD);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var A,B:MAS;
  K:Integer;
BEGIN
RANDOMIZE;
for K:=1 TO 8 DO
begin
  A[K]:=Random(10);
  Memo1.Lines.ADD('A='+FLOATTOSTR(A[K]));
end;
for K:=1 TO 9 DO
begin
  B[K]:=Random(10);
  Memo1.Lines.ADD('B='+FLOATTOSTR(B[K]));
end;


CMAX(A,8,NA);
CMAX(B,9,NB);

end;
procedure TFORM1.CMAX;
var E,D:INTEGER;
  E:=STRTOFLOAT(EDT1.TEXT);
  D:=STRTOFLOAT(EDT2.TEXT);
I:WORD;
begin
   NC:=0;
   for I:=1 TO N do
   if ((I>=E) AND (I<=D)) THEN
   NC:=I+1;
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NA));
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NB));

end;




end.

[evg_m]

procedure Tform1.СMAX(C:MAS;N:INTEGER;var NC:WORD);

да скобки можно по правилам Pascal(Delphi) можно не писать, но вам же легче будет ориентироваться какие идентификаторы(параметры процедуры) вы можете и ДОЛЖНЫ использовать.

var E,D:INTEGER;
  E:=STRTOFLOAT(EDT1.TEXT);
  D:=STRTOFLOAT(EDT2.TEXT);
что за код в блоке объявлений? 
I:WORD;
begin
   NC:=0;
   for I:=1 TO N do
   if ((I>=E) AND (I<=D)) THEN мы ДОЛЖНЫ сравнивать индексы или все-таки числа лежащие в массиве в элементе с индексом
   NC:=I+1;
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NA));
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NB));
можно конечно, НО лучше это делать ВНЕ процедуры (процедура для счета, но не вывода)
end;

а выводить вне процедуры, после выполнения

CMAX(A,8,NA);
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NA));
CMAX(B,9,NB);
Memo1.Lines.ADD('КОЛИЧЕСТВО'+FLOATTOSTR(NB));

'КОЛИЧЕСТВО'+FLOATTOSTR(NB)

а что количество может быть =1.4 (один и четыре десятых!)

[QUOTE]   procedure CMAX(C:MAS;N:INTEGER;var NC:WORD);/QUOTE]

а теперь думаем каких таких параметров нам не хватает?

Для каждого из массивов А(8),В(9) определить количество чисел,попавший в интервал [C,D].

массив ? какой? сколько?
количество попавших ?
интервал ? начало? конец ?