Задача 3 Урок 18

Задача 3 Урок 18:

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

program u18z3;
var
  a,code,i,n: integer;
  s: string;
begin
  writeln('Vvedite stroku');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
  begin
    val(s[i], a, code);
    if  (code=0) and (a>=5) then
      n:= n+1;
  end;
  write(n);
  readln();
end.