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

program mas;
const N = 50;
var
 B:array[1..N] of integer; {описание длины и типа массива}
 i,k: byte; {переменные вводятся как индекс массива}
 x,max,nmax:integer;
begin
 randomize;
 i:=0;
 repeat
 x:=random(100)-random(100);{i-ому элементу массива присваивается случайное} 
 if x>0 then                {целое число в диапазоне от -100 до 100}
  begin
  i:=i+1;      {условие заполнения массива}
  b[i]:=x;
  end;
 until i=50;
 writeln('Исходный массив: ');
 for k:=1 to i do {вывод исходного массива на экран}
 write(B[k],' ');
 max:=b[1];{значение максимума присваивается первому положительному элементу}
 nmax:=1;{значение индекса массива присваивается индекс первого полож-ого элемента}
 for i:=2 to N do
  if B[i]> max then
  begin
  max:=B[i]; {возможное переприсваивания максимума и индекса максимального элемента}
  nmax:=i;
  end;
writeln;
writeln('Максимальный элемент массива: ',max);
writeln('Индекс максимального элемента: ',nmax);
end.

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.

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 inMas(var y: arr);
var
  k: integer;
begin
  randomize;
  for k := 1 to N do   
    y[k] := random(101);//положительные
end;
 
procedure outMas(const z: arr; const s: string);
var
  m: integer;
begin
  writeln(s);
  for m := 1 to N do   
    write(z[m], ' ');  
  writeln;
end;
 
begin
  inMas(B); 
  outMas(B, 'Исходный массив: '); 
  x := iMax(B);
  writeln('Максимальный элемент массива: ', B[x]);
  writeln('Индекс максимального элемента: ', x);
end.