Удалить из текста все цифры — Pascal(Паскаль)

var
i:byte;
s:string;
begin
write('Введите текст:');
readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then delete(s,i,1);
write('Изменённый текст: ',s);
readln;
end.