Ввести строку содержащую буквы и цифры. Из строки выбрать только цифры и записать их в столбец — Pascal(Паскаль)

uses crt;
procedure Cifra(k:byte;s:string);
begin
if s[k] in ['0'..'9'] then writeln(s[k]);
if k<length(s) then Cifra(k+1,s);
end;
var str:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую буквы и цифры:');
readln(str);
i:=1;
Cifra(i,str);
readln
end.