Delphi 7, подпрограмма-процедура

[Toivo]

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

[DrStrangeLove]

Исхожу из того, что [C,D] - закрытый интервал (включает значения C и D), а также что C<D, и С вводится первой..

program myprogram;

Var 

   arrA: Array[1..8] of Real;
   arrB: Array[1..9] of Real;
   interval: Array[1..2] of Real;
   ind,j,k:Integer;
   
procedure  detect(inter:Array of Real;a:Array of Real);
var c,i:Integer;

begin
   c:= 0;
   
   if inter[0] < inter[1] then
   begin
   for i := 0 to length(a)-1 do
     begin
	 if (a[i] >= inter[0]) and (a[i] <= inter[1])  then
	      Inc(c,1);
	
     end;
   
   end;

WriteLn('Kolichestvo chisel popavshikh v interval:');
WriteLn(c);

end;


begin
WriteLn('Vvedite massiv A:');
for ind:= 1 to length(arrA)  do  Read(arrA[ind]);
Readln;

WriteLn('Vvedite massiv B:');
for j:= 1 to length(arrB)  do  Read(arrB[j]);
Readln;

WriteLn('Vvedite interval:');
for k:= 1 to length(interval)  do  Read(interval[k]);
Readln;

detect(interval,arrA);
detect(interval,arrB);

end.

[Toivo]

Спасибо.)
Думала, никто не ответит.
но..

Сообщение от DrStrangeLove

begin
WriteLn('Vvedite massiv A:');
for ind:= 1 to length(arrA) do Read(arrA[ind]);
Readln;

WriteLn('Vvedite massiv B:');
for j:= 1 to length(arrB) do Read(arrB[j]);
Readln;

WriteLn('Vvedite interval:');
for k:= 1 to length(interval) do Read(interval[k]);
Readln;

detect(interval,arrA);
detect(interval,arrB);

end.

здесь компилятору не нравится.
повтор глобальной переменной убрать и еще переменные в тестовой части прописать?

[DrStrangeLove]

не знаю...
у меня с компилятором Free Pascal такой проблемы нет..)

[Serge_Bliznykov]

Toivo, во-первых, с телепатией у нас туго, указывайте конкретно, что там не нравится вашему компилятору (строчки, на которых ошибка, текст ошибки, возможно, даже скриншоты ошибки и т.д.)

во-вторых, Вам в Delphi нужно создавать КОНСОЛЬНОЕ приложение.
Если сделаете правильно, в коде появится такая строчка (выделил):

program Project7;

{$APPTYPE CONSOLE}

Var

   arrA: Array[1..8] of Real;
   arrB: Array[1..9] of Real;
   interval: Array[1..2] of Real;
   ind,j,k:Integer;

Третье, если не получится создать консольное приложение,
тогда готовый пример программы (с) DrStrangeLove во вложении: Project7.rar