Программа написана, нужно добавить процедур и функций. Блок-схема имеется - Pascal ABC

Формулировка задачи:

Программа написана, нужно добавить процедур и функций: заменить процедурой ввод, второй вывод, функцией найти максимум и второй функцией индекс этого максимума. Блок-схема имеется. Было бы очень неплохо, если бы написали, какие переменные глобальные, локальные, формальные, фактические, параметры-значения и параметры-переменные. Короче, описание переменных. Не дружу я с этой темой. Во вложениях сама задача, программа и блок-схема.

Имя матрицы и размеры	Действия	Условия и ограничения
B(50)	Определить максимальный элемент массива B и его порядковый номер	X_i>0

(Здесь была фотография с текстом программы)

Решение задачи: «Программа написана, нужно добавить процедур и функций. Блок-схема имеется»

Листинг программы

program mas;
 
const
  N = 50;
type arr=array [1..N] of integer;
var
  B: arr; {описание длины и типа массива}  
  x: integer;
  
function iMax(z:arr):integer ;
var m,ind:integer;
begin
 ind := 1;{значение максимума присваивается первому положительному элементу}  
   for m := 2 to N do
    if z[m] > z[ind] then   
      ind := m;    
    result:=ind;
end;
 
procedure ioMas(var y: arr; const s:string);
var k:integer;
begin
  writeln(s);
  randomize;
  for k := 1 to N do
    begin
      y[k] := random(100) - random(100);
    write(y[k], ' ');      
    end;
   writeln;
end;
 
begin    
  ioMas(B,'Исходный массив: '); 
  x:=iMax(B);
  writeln('Максимальный элемент массива: ', B[x]);
  writeln('Индекс максимального элемента: ', x);
end.

Объяснение кода листинга программы

В программе объявлены переменные B и x, которые имеют тип arr и integer соответственно.
Создана функция iMax, которая принимает аргумент z типа arr и возвращает значение типа integer. Внутри функции объявлены две переменные m и ind типа integer. Изначально значение ind устанавливается равным 1. Затем в цикле for происходит сравнение значений z[m] и z[ind]. Если значение z[m] больше, то значение ind обновляется. В конце функция возвращает значение ind.
Создана процедура ioMas, которая принимает аргумент var y типа arr и const s типа string. Внутри процедуры объявлена переменная k типа integer. Затем происходит запись строки s в выходной поток. Используется функция randomize для установки случайного значения для каждого элемента массива y. Затем происходит цикл for, внутри которого для каждого элемента массива y[k] присваивается случайное значение от 0 до 99. Значение каждого элемента записывается в выходной поток. После окончания цикла процедура записывает символ новой строки в выходной поток.
В основной части программы вызывается процедура ioMas с аргументом B и const 'Исходный массив: '. Затем вызывается функция iMax с аргументом B и сохраняется результат в переменной x. Значение x записывается в выходной поток. Затем выводится строка 'Максимальный элемент массива: ' и значение B[x]. Также выводится строка 'Индекс максимального элемента: ' и значение x.