В заданном векторе (одномерном массиве) найти: наибольший отрицательный и наименьший положительные элементы - C#

const
  nmax=50;
var
  a: array[1..nmax] of integer;
  n,i,min,max: integer;
begin
  randomize;
  repeat
    write('Введите размер массива (n<50):');
    readln(n);
  until n in[1..50];
  min:=-1;
  max:=1;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=-99+random(199);
    write(a[i]:4);
    if a[i]<0 then  max:=a[i]
    else if a[i]>0 then min:=a[i];
  end;
  writeln;
  if min=-1 then writeln('Положительных элементов нет')
  else
   begin
    for i:=1 to n do
    if (a[i]>0)and(a[i]<min) then min:=a[i];
    writeln('Минимальный положительный=',min);
   end;
  if max=1 then writeln('Отрицательных элементов нет')
  else
   begin
    for i:=1 to n do
    if (a[i]<0)and(a[i]>max) then max:=a[i];
    writeln('Максимальный отрицательный=',max);
   end;
end.