Определить номер первого отрицательного элемента массива

var
   a:array[1..50] of integer;
   i,t:integer;
begin
     randomize;
     for i:=1 to 50 do begin
         a[i]:=random(201)-100;
         write(a[i], ' ');
         end;
     for i:=1 to 50 do
         if (a[i]<0) then begin
            t:=i;
            break;
            end;
     writeln;
     writeln('Íîìåð ýëåìåíòà = ', t);
     for i:=t+1 to 50 do
         a[i]:=5;
     for i:=1 to 50 do
         write(a[i], ' ');
 
end.

uses crt;
var n,m,e,i,j,k,min,max:integer;
a:array[-100..500] of integer;
b:array[-100..500] of integer;
procedure MDA;
begin
 Randomize;
  write('ââåäèòå n='); readln (n);
 
  write('ââåäèòå îò êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (min);
  write('ââåäèòå äî êàêîãî ÷èñëà ãåíåðèðîâàòü=');  readln (max);
  min:=-min;
       writeln('                     first');
      For i:=1 to n do begin
        a[i]:=random(min+max+1)-min;
        write(a[i]:4);
end;
end;
procedure poisk;
begin
writeln;
     writeln('                       second');
For i:=1 to n do begin
 
        if A[i]<0 then begin b[e]:=i; e:=e+1;
end;
end;
For i:=1 to n do begin
if (i<> b[0]) and (i>=b[0]) then begin
a[i]:=5;
end;
end;
 
 For i:=1 to n do begin
        write(a[i]:4);
end;
end;
begin
MDA;
poisk;
end.