В массиве из 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.