Помогите Реализовать на Паскале алгоритм: Дан массив F(50).Вместо минимального элемента записать сумму всех элементов

var
f: array [1..50] of integer;
i, imin: bite;
summ: integer;
begin

Randomize();

summ := 0;
imin := 1;
For i:=1 to 50 do
begin
f:=randeom(1000);
Summ:= summ + f;
if f[imin] > f then imin = i;
write(f:5);
end;
writeln();
writeln('Min = ', f[imin]);
writeln('Summ = ', summ);

f[imin] = sum;
For i:=1 to 50 do
write(f:5);

Readln();

end.