Даны целые числа а1, а2,. Известно,что а1>0 и что среди а1, а2,.есть хотя бы одно отрицательное число

program poisk_min_max9; 
var 
aa,a:integer;   // очередное целое число 
N:integer;   // количество вводимых чисел 
i:integer;   // переменная для цикла 
min:integer; // 
begin 
 // ручной ввод значений 
 // пресвоение начальных значений 
writeln('Введите элементы.'); 
i:=0; 
a:=1; 
 
inc(i); // подсчет количества введенных элементов 
 write('a',i,'='); 
 read(A); 
 AA:=a; 
while a>0 do // цикл по введенным значениям 
 begin 
 //ввод 
 inc(i); // подсчет количества введенных элементов 
 write('a',i,'='); 
 read(A); 
if ((aa+a)xor(i=2) then    // отбор нужного элемента 
         min:=aa+a; 
 
AA:=a; 
 end; 
// вывод результата 
writeln; 
writeln('Ответ:',min); 
end.

if ((aa+a)xor(i=2) then    // отбор нужного элемента

if ((aa=a)xor(i=2)) then    // отбор нужного элемента

Var
a,b,i,min:integer;
Begin
    read (b);
    read (a);
    min:=a+b;
    while a>=0 do
    Begin
        read (a);
        if (a+b<min)and(a>=0) 
        then 
            min:=a+b;
        b:=a;
    end;
    write (min);
end.