Дан одномерный массив целых чисел А[i], где i=1,2,…,N. Определить: 1)Сколько раз максимальный элемент встречается в массиве 2)номер первого наибольшего элемента — Pascal(Паскаль)

uses crt;
var a:array[1..100] of integer;
    n,i,min,max,kmin,imin,imax,kmax:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
min:=maxint;max:=-maxint;
for i:=1 to n do
  begin
    a[i]:=random(5);
    if a[i]<min then min:=a[i]
    else if a[i]>max then max:=a[i];
    write(a[i],' ');
  end;
writeln;
{сколько раз встречается максимальный элемент}
kmax:=0;kmin:=0;
for i:=1 to n do
if a[i]= max then kmax:=kmax+1
else if a[i]= min then kmin:=kmin+1;
writeln('Максимальный элемент встречается ',kmax,' раз');
{номер первого наибольшего элемента}
for i:=1 to n do
if a[i]=max then
   begin
     imax:=i;
     break;
   end;
writeln('Номер первого масимального элемента=',imax);
{номер последнего наименьшего элемента}
for i:= n downto 1 do
if a[i]=min then
   begin
     imin:=i;
     break;
   end;
writeln('Номер последнего минимального элемента=',imin);
{каких элементов больше}
if kmin>kmax then writeln('Минимальных элементов больше')
else if kmin<kmax then writeln('Максимальных элементов больше')
else if kmin=kmax then writeln('Минимальных и максимальных элементов поровну');
readln
end.