Паскаль Множества

[yuliya.al18]

Дано предложение. В нем ошибочно набраны лишние знаки (цифры), удалить их. Результат отобразить на экране.

[Аватар]

  for i:=Length(s) downto 1 do if Pos(s[i],'0123456789')>0 then Delete(s,i,1);

или так, с множествами

for i:=Length(s) downto 1 do if s[i] in ['0'..'9') then Delete(s,i,1);