Дан вещественный вектор A(n). Нужно найти количество элементов в векторе, абсолютная величина которых больше 7 (Паскаль)

[vladicvladic123]

Привет, помогите дополнить код. Условие задачи :
"Дан вещественный вектор A(n). Нужно найти количество элементов в векторе, абсолютная величина которых больше 7. На печать выдавать исходный вектор, количество элементов, абсолютная величина которых больше 7. Оформить с передачей параметров."

Суть в том что нужно переделать код так, чтобы было через процедуры и функции. (с передачей параметра). Сам код должен быть написан на паскале(турбо).

const
  n = 10;
type
  mas = array[1..n] of real;
var
  a : mas;
  i, j, k : integer;
 
function count(z : mas; m : integer) : integer;
var j, t : integer;
begin
  t := 0;
  for j := 1 to n do if abs(z[j]) > m then inc(t);
  count := t
end;
 
begin
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);    
  end;
  {выводим вектор}
  for i := 1 to n do
    write(a[i]:6:2);
  writeln;
  {вызываем функцию подсчтета количества}
  k := count(a, 7);
  writeln('количество элементов по модулю больших 7: ', k);
  readln  
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Вроде все сделано как положено. Что изменять то?

[vladicvladic123]

Сообщение от ZX Spectrum-128

Вроде все сделано как положено. Что изменять то?

Программа работает)) Но нужно оформить через процедуры и функции) (а я в процедурах полный 0)

[ZX Spectrum-128]

Функция тоже присутствует. Что именно оформить через процедуры и функции?

[vladicvladic123]

Сообщение от ZX Spectrum-128

Функция тоже присутствует. Что именно оформить через процедуры и функции?

По настоящему условию задачу нужно написать через процедуры и функции (procedure Vvod и тд), а я не знаю как это сделать, помоги, если не затруднит)