Дано предложение. Удалить из него все цифры.

Program enot; Var s: string; i,n:integer; begin write('введите предложение: '); read(s); n:= length (s); for i:= 1 to n do  case s[i] of  '0': delete (s,i,1);  '1': delete (s,i,1);  '2': delete (s,i,1); '3': delete (s,i,1);  '4': delete (s,i,1);  '5': delete (s,i,1);  '6': delete (s,i,1);  '7': delete (s,i,1);  '8': delete (s,i,1);  '9': delete (s,i,1);  end; writeln(s);  end.