Одномерный массив. Если индекс Y(min) меньше 5, то заменить в исходном ряду отрицательный Y(i) на Y(min)

program task;
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,min,buf:integer;
begin
clrscr;
writeln('Enter to massiv: ');
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Massiv: ');
for i:=1 to n do
write(a[i]:4);
writeln;
 
min:=a[1];
for i:=1 to n do
begin
if min>a[i] then
begin
min:=a[i];
buf:=i;
end;end;
 
writeln('New massiv: ');
for i:=1 to n do
begin
if (a[i]<0) and (buf<5) then a[i]:=min;
write(a[i]:4);
end;
readkey
end.

const n=10;
var a:array[1..n] of integer;
    i,min,buf:integer;

write(a[i]:4);
writeln;

write(a[i]:4);

write(a[i]:4);

const
 n = 10;
var
 arr: array[1..n] of integer;
 i, min, index: integer;
begin
 randomize;
 min:=1; 
  for i:=1 to n do
   begin
    arr[i]:=random(n)-3;
    write(arr[i], ' ');
     if arr[i] < arr[min] then min:=i;
     if arr[i] < 0 then index:=i;
   end;
 writeln;
  if min < 5 then arr[index]:=arr[min];
   for i:=1 to n do
    write(arr[i], ' ');
end.

Program lol;
Uses crt;
Var y:array[1..10] of real; i,p:integer; min:real;
Begin
ClrScr;
Writeln('Input elements:');
Readln(y[1]); min:=y[1]; p:=1;
For i:=2 to 10 do
 Begin
  Readln(y[i]);
  If y[i]<min then
   Begin
    min:=y[i]; p:=i;
   end;
 end;
TextColor(2);
For i:=1 to 10 do
 Begin
  If (y[i]<0) and (p<5) then y[i]:=min;
  Writeln(y[i]:2:2);
 End;
Readln;
End.