Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32 - Pascal

Формулировка задачи:

Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32 и их порядковые номера.

Решение задачи: «Составить схему алгоритма и программу выявления в массиве A[K] тех элементов, значения которых больше 32»

Листинг программы

const
    h = 32;
var
    a: Array[Byte] Of ShortInt;
    i, k: Byte;
begin
    Randomize;
    repeat
        Write('k=');
        ReadLn(k);
    until (k > 0); Dec(k);
    for i := 0 to k do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
    end;
    WriteLn; WriteLn('Элементы, большие 32:');
    for i := 0 to k do
        if (a[i] > h)
        then
            WriteLn('a[', i + 1, ']=', a[i]);
end.

Объяснение кода листинга программы

Объявлены константа h равная 32 и переменные a, i, k типа Byte.
Задается начальное значение переменной k.
В цикле до тех пор, пока k больше нуля, происходит чтение значения переменной k.
В цикле от 0 до k происходит заполнение массива a случайными значениями в диапазоне от 0 до 199.
Выводится на экран заполненный массив a.
Выводится сообщение о том, какие элементы массива больше 32.
В цикле от 0 до k происходит проверка каждого элемента массива a на условие a[i] > h.
Если условие выполняется, то выводится на экран сообщение с индексом элемента и его значением.