Дан массив из N действительных чисел, вывести на экран те из них которые меньше первого

1 На вкладці Файл виберіть команду Створити й клацніть плитку Пуста база даних.

2 У поле Ім’я файлу введіть ім’я файлу. Щоб змінити стандартне розташування файлу, натисніть кнопку Знайти розташування для бази даних (поруч із полем Ім’я файлу), відкрийте потрібну папку й натисніть кнопку OK.

3 Натисніть кнопку Створити.

Access створить базу даних із пустою таблицею "Таблиця1", яку потім відкриє у вікні табличного подання даних. Курсор установиться в першій пустій клітинці стовпця Клацніть, щоб додати.

4Щоб додати дані, почніть вводити їх або вставте їх з іншого джерела.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9