В массиве X из 50 элементов найти наименьший элемент и заменить его значением суммы всех элементов, предшествующих ему — Pascal(Паскаль)

uses crt;
var i,imin,sum:integer;
mas:array[1..50] of integer;
begin
for i:=1 to 50 do begin
mas[i]:=random(100);
write(mas[i],' ');
min:=mas[1];
imin:=1;
for i:=1 to 50 do if mas[i]<min then begin
min:=mas[i];
imin:=i;
end;
sum:=0;
for i:=1 to imin do sum:=sum+mas[i];
mas[imin]:=sum;
writeln;
for i:=1 to 50 do write(mas[i],' ');
readkey;
end.