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

Uses
 CRT;
Var
 s,f:string;
 kol,l:integer;
begin
ClrScr;
kol:=0;
f:='';
write('=: ');
repeat
begin
 readln(s);
  if s[length(s)]='.' then
  begin
   inc(kol);
  end;
 f:=f+s;
end;
until kol=1;
for l:=1 to length(f) do
 if f[l] in ['0'..'9'] then
 begin
  write(f[l]);
 end;
readln;
end.