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