Дан целочисленный массив из 20 частей. Элементы массива могут принимать целыезначения

Дан целочисленный массив из 20 частей. Элементы массива могут принимать целые
значения от 0 до 1000 включительно. Опишите на Паскале алгоритм, позволяющий отыскать
и вывести наибольшее значение среди трёхзначных частей массива, не делящихся
на 9. Если в исходном массиве нет элемента, значение которого является трёхзначным
числом и при этом не кратно 9, то выведите известие Не найдено.
Начальные данные объявлены так, как показано ниже. Воспрещается использовать
переменные, не описанные ниже, но разрешается не использовать часть из их.
const
N = 20;
var
a: array [1..N] of
integer;
i, j, max: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end.