Дан линейный массив в размере 5 вывести элементы больше 10

Program zadacha;
var
a:array[1..5] of real;    {можно взять и тип integer}
i:integer;
Begin
for i:=1 to 5 do
begin
writeln('Введите элемент массива');
readln(a[i]);
end;
for i:=1 to 5 do
   if a[i]>10 then write(a[i],' ');
writeln;
End.