НАПИШИТЕ ПРОГРАММУ,КОТОРАЯ ВО ВВЕДЕННОЙ С КЛАВИАТУРЫ СТРОКЕ ЗАМЕНЯЕТ ВСЕ МАЛЕНЬКИЕ ГЛАСНЫЕ ЛАТИНСКИЕ БУКВЫ НА БОЛЬШИЕ.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 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.