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

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.