В массиве из 10 целых чисел подсчитать сумму
элементов, стоящих правее минимального.Написать программу на языке Паскаль.Помогите, пожалуйста.

var a: array [1..10] of Integer;    i, min, sum: integer;begin     for i := 1 to 10 do     begin          a[i] := random(50);          writeln('[', i, '] => ', a[i]);     end;          min := a[1];     for i := 2 to 10 do          if (min > a[i]) then min := a[i];     i := 1;     while ((i <= 10) and (a[i] <> min)) do     begin           sum := sum + a[i];           inc(i);     end;     writeln(sum);end.