Подсчитать количество цифр в строке, удалить их и вставить в конец строки в порядке удаления — Pascal(Паскаль)

program new;

var
  str1, str2, str3: String;
  i,l: Integer;

begin
  writeln('Запишите строку');
  readln(str3);
  str1:='';
  str2:='';
  for i:=1 to Length(str3) do
    if str3[i] in ['0'..'9'] then str2:=str2+str3[i] else str1:=str1+str3[i];
  str3:=str1+str2;
  writeln('Результат '+str3);
  l:=length(str2);
  writeln('Количество цифр ', l);
end.