Дано n целых чисел. Вывести все числа меньше заключительного числа в

program zz1;
const n=5; //вводим данное число n
var i:integer;
a:array[1..n] of integer;  //заводим массив, в котором будем беречь числа ряда
begin
for i:=1 to n do //вводим числа ряда с клавиатуры через пробел в строчку
read(a[i]);

for i:=1 to n do //перебираем числа в массиве от первого до заключительного
if a[i]lt;a[n] then write(a[i], ); //проверяем, если число из массива меньше заключительного числа в этом же массиве, то выводим его на экран
end.