Вмассиве a(n) подсчитать количество минимальных элементов. в турбо паскале решите

Var   i: integer;       //   рабочая переменная для for   k: integer;       //   количество минимальных элементов   n: integer;       //   размер массива  m : array [1..10] of integer; // собственно сам массив   из "n" элементов   i_min : integer;   // индекс минимального элемента в массиве begin   n: =10;   k : = 0;   i_min : = 1;   for i : = 1 to n   do   begin     m[i] : = random(10);   // 10 - число от     if (m[i]< m[i_min]) then     begin       k : = 1;       i_min : = i     end     else       if (m[i]=m[i_min]) then         inc(k);   end;   // в переменной "k" - находится количество минимальных элементов end;

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.