Написать ! pascalabc. введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

Var a: array [1..5] of integer; i, amount: integer; begin       read(a[1], a[2], a[3], a[4], a[5]);       amount : = 0;       for i : = 1 to 5 do       begin           while a[i] > = 10 do           begin                 a[i] : = a[i] div 10;           end;           if a[i] = 8           then               amount : = amount + 1;       end;       writeln(amount); end.