В массиве чисел найти первое отрицательное число - Pascal

Формулировка задачи:

Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти первое отрицательное число и напечатать его номер Заранее спасибо!

Решение задачи: «В массиве чисел найти первое отрицательное число»

Листинг программы

var
  a:array [1..100] of integer;
  i,x:integer;
  n:integer;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    if a[i]<0 then begin
      x:=i;
      break;
    end;
  writeln(x);
  readln;
  readln
end.

Объяснение кода листинга программы

Объявлены переменные: a: массив на 100 целых чисел; i,x: целочисленные переменные для цикла; n: целочисленная переменная для количества чисел.
Считывается количество чисел (n).
Заполняется массив a с помощью цикла for i:=1 to n.
Запускается поиск первого отрицательного числа с помощью цикла for i:=1 to n.
Если a[i] отрицательное, то x присваивается i, и цикл прерывается.
Выводится значение x.
Программа ожидает ввода для продолжения (readln).