Помогите пожалуйста, срочно надо! (только через паскаль надо

Const n=20;
Type vector= array[1..n] of integer;
Напишите программу, которая вычисляет для вектора x:
номер первого нулевого элемента, стоящего после отрицательного элемента, или 0, если такого элемента нет.