Дана строка. Поместить все цифры строки в отдельную строку. Паскаль. Помогите пожалуйста, решить!

vars1, s2: string;i: integer;beginreadln(s1);for i:=1 to length(s1) doif s1[i] in ['0'..'9'] thens2 := s2 + s1[i];writeln(s2);end.