Дана строка символов. Задача: удалить из строки все цифры.

[Striker14]

Помогите пожалуйста, программу нужно сделать в Паскале. Заранее спасибо)

[maladoy]

uses crt;
const mn=['0'..'9'];
var
s,s2 :string;
i,k,len : integer;
begin
clrscr;
writeln('Enter string: ');
readln(s);
len := length(s);
k := 1;
s2 := '';
for i:=1 to len do
  if not (s[i] in mn) then
         begin
         s2 := s2 + s[i];
         inc(k);
         end;
writeln('Result:');
writeln(s2);
readln;
end.

пользуйтесь поиском!