Сумма элементов от А до Амин

[Ivan357]

Дан массив А1..А20. Вычислите в нем сумму элементов от А1 до Амин.

[alex_fcsm]

uses crt;
var a:array[1..20] of integer;
i,min:integer;
sum:real;

begin
clrscr;
randomize;
for i:=1 to 20 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
min:=1;
for i:=2 to 20 do
if a[min]>a[i] then min:=i;
sum:=0;
for i:=1 to min-1 do
sum:=sum+a[i];
writeln(sum:4:1);
end.

[Ivan357]

спасибо!!!