Процедура, которая cчитает количество равных элементов в массиве в переменную i

const n=5;
type t_mass= array [1..n] of integer;
  procedure kol(a:t_mass; var i:integer);
 
 begin 
     i:=1;
     while (i<n) and (a[i]=a[i+1]) do 
      inc(i);
      kol:=i;
      end;
 
 var i:integer;
 a:t_mass;
 
 Begin
 for i:= 1 to n do
   read(a[i]);
 i:= kol(a,i);
 
 write(i);
 end.

const n=5;
type t_mass= array [1..n] of integer;
procedure kol(a:t_mass; var k:integer);
var i:integer;
begin
i:=1;
while (i<n) and (a[i]=a[i+1]) do  inc(i);
k:=i;
end;
 
var i:integer;
    a:t_mass;
 
Begin
for i:= 1 to n do
read(a[i]);
kol(a,i);
write(i);
end.

const n=5;
type t_mass= array [1..n] of integer;
 
  procedure kol(a:t_mass; var k:integer);
  var i:integer;
  begin
  i:=1;
  while (i<n) and (a[i]=a[i+1]) do  inc(i);
  k:=i;
  end;
 
  function Sort(a:t_mass):boolean;
var k: integer;
  begin 
     
      if (k<n) and (a[k]<=a[k+1]) then begin 
               while (k<n) and (a[k]<=a[k+1]) do
               inc(k); end {проверка на неубывание} 
      else 
        if (k<n) and (a[k]>=a[k+1]) then begin
        while (k<n) and (a[k]>=a[k+1]) do
        inc(k); end;{проверка на невозрастание}
      Sort:= k=n;
    end;
 
var 
i,k:integer;
p: real;
a: t_mass;
 
begin
  for i:= 1 to n do
   read(a[i]);
     p:=1;
   kol(a,i);
   if Sort(a) then write(' массив упорядочен по невозрастанию или неубыванию') else begin  k:=0;
     for i:=1 to n do 
     if a[i]>0 then begin k:=k+1; p:=p*a[i];end;
             if k>0 then begin p:=exp(ln(p)/k); write('среднее геометрическое последовательности p=',p:3:3); end
             else write('в массиве нет положительных элементов')end;
  
end.

function Sort(a:t_mass):boolean;
var i,j: integer;
begin
i:=1;
while(i<n)and(a[i]>=a[i+1]) do inc(i);
j:=1;
while(j<n)and(a[j]<=a[j+1]) do inc(j);
Sort:=(i=n)or(j=n)
end;