Создать процедуру, которая выводит на экран все цифры, встречающиеся в переданном ей тексте — Pascal(Паскаль)

procedure vyvod(s:string);
var i,k:integer;
begin
writeln('Цифры');
k:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  write(s[i]);
  k:=1;
 end;
if k=0 then write('Цифр нет');
end;
var s:string;
begin
writeln('Введите текст');
readln(s);
vyvod(s);
readln
end.