Паскаль! Помогите пожалуйста!Дан целочисленный массив из 40 частей. Элементы массива

Алгоритм:
for j := 1 to N do
if (8 lt;= a[j]) and (a[j] lt;= 63) and (a[j] div 8 lt; a[j] mod 8) then k:=k + 1

for j := 1 to N  - перебор всех частей массива
(8 lt;= a[j]) and (a[j] lt;= 63) - восьмеричная запись чисел от 8 до 63  содержит ровно две числа 
(a[j] div 8 lt; a[j] mod 8) - 1-ая (старшая) цифра меньше второй (младшей) при восьмеричная запись чисел от 8 до 63
k:=k + 1 - счётчик количества элементов массива подходящих условиям

Программа полностью:
const N=40;
var a: array [1..N] of integer;
i, j, k: longint;
begin
for i:=1 to N do
readln(a[i]);
for j := 1 to N do
if (8 lt;= a[j]) and (a[j] lt;= 63) and (a[j] div 8 lt; a[j] mod 8) then k:=k + 1;
writeln('Количество частей массива, восьмеричная запись которого содержит ровно две числа, при этом 1-ая (старшая) цифра меньше 2-ой (младшей), одинаково: ',k);
end.