Дан текст. Напечатать все имеющиеся в нем цифры

Var st: string; i: byte; begin readln (st); //вводим строкуwrite ('Числа имеющиеся в тексте: '); for i: =1 to length (st) do if (st[i] in ['1'… '9']) then write (st[i]); //если текущий символ принадлежит ко множеству чисел — то выводим его end.