Введите массив из 5 элементов с улавиатуры и выведите те элементы массива которые больше 8 если таких элементов нет то сообщить об этом

Const
   N = 5;
Var
   A:array[1..N] of real;
   i,k:integer;
Begin
For i:= 1 to N do
    Read(A[i]);
k:=0;
For i:= 1 to N do
    if A[i]>8 then
       Begin
       k:=k+1;
       Write(A[i],' ');
       End;
if k=0 then WriteLn('Таких чисел нет')
End.