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

type TMyArray = array of integer;
var y:TMyArray; i,n:integer;
begin write('Input n=');readln(n);
      setlength(y,n);
      for i:=0 to n-1 do
      begin write('Input Y[',i+1,']=');
            readln(y[i]);
      end;
      for i:=0 to n-1 do
      if y[i]<0 then begin writeln('result=',i+1);
                           readln;
                           break;
                     end;
end.

type TMyArray = array of array of integer;
var X:TMyArray; i,j,n,m,xmax:integer;
begin write('Input n=');readln(n);
      write('Input m=');readln(m);
      setlength(x,n,m);
      for i:=0 to n-1 do
      for j:=0 to m-1 do
      begin write('Input X[',i+1,',',j+1,']=');
            readln(x[i,j]);
      end;
 
      xmax:=x[0,0];
      for i:=0 to n-1 do
      for j:=0 to m-1 do
      if x[i,j]>xmax then xmax:=x[i,j];
 
      for i:=0 to n-1 do
      for j:=0 to m-1 do
      if ((i=0)or(j=0)or(i=n-1)or(j=m-1)) then x[i,j]:=xmax else x[i,j]:=0;
 
      for i:=0 to n-1 do
      begin for j:=0 to m-1 do
            write(x[i,j],'   ');
            writeln;
      end;
      readln;
 
end.