Введите массив из 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.