СРОЧНО РЕШИТЕ ЗАДАЧУ ПО PASCAL Дана последовательность целых чисел. Выяснить какое число встречается раньше положительное или отрицательное.

Если нуль возможен, то примерно так. function whatsign(a: array of integer):boolean; var find:boolean;      i:integer; begin    i:=min(a);    find:=false;    result:=false;    while (not find) and (i<=max(a)) do      begin         find:=a[i]<>0;         if find then result:=a[i]>0;         i:=i+1;      end; end;  Функция вернёт True, если раньше положительное и False, если раньше отрицательное. Примерно так. Проверь синтаксис объявления переменных и функции.