напишите программу подсчитывающая количество минимальных элементов в заданном массиве

program glg;vara:array[1..10] of integer;min, kol: integer;begini := 0;kol:=0;min:= 100000;while i < 10 dobeginreadln (a[i]);if a[i] < min then min:= a[i];endi:=0;while i < 10 do if a[i] = min then kol = kol + 1;writeln(kol);end.Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)