Написать ! 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.