Работа с процедурами и функциями (Pascal)

[loxanet]

Требуется помощь в решении задачи (Pascal). С применением функции или процедуры. Заранее спасибо.

ЗАДАЧА-
Подсчет количества чисел в массиве, которые меньше заданного числа.

[[CODER]]

с чем конкретно помочь? покажите то что у вас есть...

[kangreon]

program Project1;

var
  a: array [ 1 .. 100] of Integer;
  r: Integer;

procedure WriteArray;
var
  i: Integer;
begin
  Randomize;
  for i := 1 to 100 do
  begin
    a[i] := Round(Random * 1000 - 500);
  end;
end;

function FindInArray: Integer;
var
  i, n: Integer;
begin
  n := 0;
  for i := 1 to 100 do
    if a[i] < r then
      Inc(n);

  FindInArray := n;
end;

begin
  WriteArray;
  Write('Подсчитать количество цифр меньших чем: ');
  ReadLn(r);
  WriteLn('Чисел оказалось ', FindInArray);
  ReadLn;
end.

[loxanet]

спасибо большое земляк, а то уже 3 час не могу разобраться , оказалось ,что последовательность не правильная.