найти номера всех элементов с минимальными значениями. вывести кол-во таких элементов(паскаль)

ConstK = 33;VarA:array[1..K] of integer;i,m,n:integer;BeginFor i:= 1 to K do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;m:=A[1];n:=0;For i:= 2 to K do    if A[i]<m then m:=A[i];For i:= 1 to K do    if A[i]=m then n:=n+1;WriteLn('Количество минимальных элементов: ',n);Write('Номера минимальных элементов: ');For i:= 1 to K do    if A[i]=m then Write(i,' ')End.Пример:5 0 5 -5 -5 -4 -7 -9 9 8 -4 6 -4 -9 2 -5 -9 4 6 -8 -4 -1 1 -8 -8 -3 -4 2 -9 1 5 -4 -2 Количество минимальных элементов: 4Номера минимальных элементов: 8 14 17 29