Задача с процедурами

program prlb10;
type mas =array [1..37] of integer;
 
procedure poisk1(n:integer; A:mas; c1:boolean; k:integer ; f:integer);
var i:integer;
begin
c1:=False;
k:=0;
f:=0;
for i:=1 to n do
 begin
  if (A[i] mod 9 =0) and (A[i]<>0) then
   begin
    c1:=True;
    k:=i+1;
   end;
  if (A[i]<A[1]) then
   f:=i
 end;
if (c1=False) then
 begin 
  writeln('Нельзя найти номер первого максимального значения: в массиве A нет ни одного элемента кратного 9');
  exit;
 end;
if (f<k) then 
 begin
  writeln('Нельзя найти номер первого максимального значения: все числа расположенные правее числа кртаного 9 больше A[1]');
  exit;
 end;
end;
 
procedure poisk2 (A:mas; f:integer; k:integer; max:integer);
var i:integer;
begin
max:=-37;
for i:=f downto k do
 begin
  if (A[i]<A[1]) and (A[i]>max) then
   max:=i;
 end;
writeln(max);
end;
 
var
A:mas;
i,n,max,k,f:integer;
c1:boolean;
Begin
readln(n);
for i:=1 to n do
readln(A[i]);
 
poisk1(n, A, c1 ,k ,f);
poisk2 (A, f, k, max);
 
 
End.

for i:=f downto k do

procedure poisk1(n:integer; A:mas; c1:boolean; k:integer ; f:integer);

procedure poisk1(n:integer; A:mas; c1:boolean; k:integer ; var f:integer);