Найти минимальное значение одномерного массива

var minimum,maximum:real;       {minimum - минимальное значение  maximum-  максимальное значение }
i,kol1,kol2:integer;            {kol1- количество максимальных элементов kol2- количество минимальных элементов т.е одинаковых минимальных или одинаковых максимальных значений}
a:array [1..10] of real; {массив из 10-ти элементов }
begin
 
randomize;
maximum:=0;
minimum:=0;
kol1:=1;
kol2:=1;
  for i:=1 to 10 do
  begin;
  {заполнение массива случайными числами в диапазоне от 0 до 100}
   a[i]:= random (100);
     if a[i]>maximum then
      maximum:= a[i];
     if minimum > a[i] then
      minimum:=a[i];
      {ищем количество макс и мин значений элементов (одинаковых)}
     if minimum = a[i] then kol2:=kol2+1;
     if maximum = a[i] then kol1:=kol1+1;
   end;
   
   writeln('Максимальное значение - ',maximum);
   writeln('Минимальное значение - ',minimum);
   writeln('Количество максимальных элементов -',kol1);
   writeln('Количество минимальных элементов - ',kol2);
   readln;
   end.

for i:=1 to 10 do
  begin;
  {заполнение массива случайными числами в диапазоне от 0 до 100}
   a[i]:= random (100);
     if a[i]>maximum then
      maximum:= a[i];
     if minimum > a[i] then
      minimum:=a[i];
end;
 for j:=1 to 10 do   {переменную j нужно объявить в разделе описания переменных ([B]var[/B]... )}
begin;
      {ищем количество макс и мин значений элементов (одинаковых)}
     if minimum = a[i] then kol2:=kol2+1;
     if maximum = a[i] then kol1:=kol1+1;
   end;