Задан массив Y1, Y2…….Y10. Если индекс Ymin меньше 5, то заменить в исходном ряду отрицательные Yi на Ymin — Pascal(Паскаль)

var
y:array[1..10]of integer;
i,min,nom:integer;
begin
randomize;
for i:=1 to 10 do
y[i]:=random(20)-10;
for i:=1 to 10 do
write(y[i],' ');
writeln;
min:=y[1];
nom:=1;
for i:=1 to 10 do 
if y[i]<min then begin
min:=y[i];
nom:=i;
end;
if nom<5 then
begin
 for i:=1 to 10 do
  if y[i]<0 then y[i]:=min;
for i:=1 to 10 do
write(y[i],' ');
end
else writeln('index min>=5');
readln;
end.