{* Количество элементов массива больше заданного *}

Unit PRGA11;
Interface
Implementation
Begin
 writeln('Программа подсчитывает количество элементов массива, больше заданного; функция подсчета является параметром.');
End.

Program prga11;

Uses prga11.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Type {* Используемые типы *}
  mas = Array[1..100] Of integer;
  func =
Function (
Var {* В работе нам потребуются переменные: *}
  x : mas);
Var {* Необходимые переменные *}
  a : mas;
  j : integer;
  n : integer;
  m : integer;
  x : integer; {$F + }
Var {* В работе нам потребуются переменные: *}
  c : mas);
Var {* Необходимые переменные *}
  k           : integer;
  i           : integer;
  Begin
  k := 0;
For i := 1 To n Do; {* Увеличиваем i от 1 до n с шагом 1 *}
  kolichestvo := k; {$F - }
Var {* Объявление переменных *}
  b         : mas;
  operation : func);
  Begin
  write('b[j]');
For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
  readln(b[j]);
For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
  write(b[j], ' ');
writeln; {* Вывод пустой строки *}
x := operation(a);
End;
Begin
clrscr; {* Очищаем экран *}
writeln('vvedite celoe chislo m i razmer massiva(n)');
readln(m, n);
deist(a, kolichestvo);
writeln('kolichestvo = ', x);
readkey; {* Нажмите любую клавишу *}
End......