Дана строка символов содержащая символы вывести все цифры строки. паскаль

См. файл во вложении

VAR
A:STRING;
n,i:integer;
begin
readln(a);
    for i:=1 to length(a) do
       if (a[i]>='0')and(a[i]<='9')then
          write(a[i]);
end.