Задание на паскале

[seva.tsimbalisty]

Заменить в строке все числа на пробелы. Вычислить количество замен.

[Stilet]

Как пробовал?

[seva.tsimbalisty]

я ейо не делал) не знаю как

[pandaaaaa]

вот

uses crt;
procedure pr1(a:string);
begin
write('vvedite str: ');
end;


var
s:string;
i,k,u:integer;
m:set of char;
begin
pr1(s);
readln(s);
k:=0;
m:=['0'..'9'];
for i:=length(s) downto 1 do
    begin
    if s[i] in m then
       begin
       delete(s,i,1);
       insert(' ',s,i);
       inc(k);
       end
    end;
writeln('stroka: ',s);
writeln('kol-vo zamen: ',k);
end.

[Mad_Cat]

все числа на пробелы != все цифры на пробелы, имхо