Составить программу, которая во введенном тексте все цифры заменяет знаком пробела

 uses crt;
 
 var s,g:string;
 i,kol:integer;
 
 begin
    clrscr;
    g:='AEIOU';
    Write('Текст: ');readln(s);
    Writeln('Исходный текст: ');
    Writeln(s);
    For i:=1 to length(s) do
    begin
    if s[i] in ['0'..'9'] then s[i]:=' ';
    If pos(s[i],g)>0 then inc(kol);
    if s[i] in ['a'..'z'] then s[i]:='?';
    end;
    Writeln('Кол-во прописных гласных - ',kol);
    Writeln('Преобразованный текст: ');
    Writeln(s);
    readkey
 end.

uses crt;
const a=['0'..'9'];
b=['E','Y','U','I','O','A'];
c=['a'..'z'];
var s:string;
i,k:integer;
begin
  write('TEXT: ');
  readln(s);
  for i:=1 to length(s) do
     begin
        if s[i] in a then s[i]:=' ';
        if s[i] in b then inc(k);
        if s[i] in c then s[i]:='?';
     end;
     writeln('Êîëè÷åñòâî ãëàñíûõ: ',k);
     writeln('Ïîëó÷åííûé òåêñò: ',s);
  readln
end.

 uses crt;
 
 var s,sl:string;
 i,x:integer;
 
 begin
 clrscr;
    Write('Строка: ');  readln(s);
    s:=s+' ';
    While s[i]<>'.' do
    begin
    inc(i);
    If (s[i]<>' ') then sl:=sl+s[i] else
      begin
      inc(x);
      If odd(x) then
            begin
            delete(s,i-length(sl),length(sl)+1);
            i:=i-length(sl);
            end;
      sl:='';
      end;
    end;
    Writeln(s);
 readln;
 end.