Добрый вечер )) решит данную )) на множества: дана строка из букв латинского алфавита, цифр, букв и знаков препинания. вырезать из строки цифры и записать их а отдельную строку в том же порядке, в каком они были расположены в исходной. вывести на печать содержимое полученных строк. входные данные: исходная строка vv1, 32qq1/4b5b45! выходные данные: две полученные строки 13214545 vv, qq/bb45! за ране

Var
  s, sd, so: string;
  digits: set of '0'..'9';
  i: integer;

begin
  writeln('Введите текстовую строку');
  readln(s);
  digits := ['0'..'9'];
  sd := ''; so := '';
  for i := 1 to length(s) do
    if s[i] in digits then sd := sd + s[i]
    else so := so + s[i];
  writeln('Результат:');
  writeln(sd);
  writeln(so)
end.

Тестовое решение:

Введите текстовую строку
Vv1, 32qq1/4b5b45!
Результат:
13214545
Vv, qq/bb!