С клавиатуры ввести 10 целых чисел и вывести в строку все числа больше 5

Const Sz = 100; / / Размер массива

var

a: array [1 ... Sz] of integer;

N: integer; / / Количество элементов в массиве

i: integer;

begin

n:=10;

write ('Введите элементы: ') ;

for i:=1 to N do

read (a[i]) ;

write ('Вывод элементов массива: ') ;

for i:=1 to N do

write (a[i],' ') ;

for i:=1 to N do

if (a[i]>=5) then

write (a[i],' ') ;

end.