{ (c) 1998 CREEQ <creeq@web.de> }
Program Vokale_durch_Buchstaben_ersetzen;
uses Crt;
var text : string;
    buchs : char;
    i : byte;
    written : boolean;

Begin
  Clrscr;
  readln(text);
  writeln;
  write('Vokale durch diesen Buchstaben ersetzen: ');
  readln(buchs);
  writeln;
  for i := 1 to length(text) do
  begin
  written := FALSE;
  begin
    if text[i] = 'A' then begin write(upcase(buchs)); written := TRUE; end;
    if text[i] = 'E' then begin write(upcase(buchs)); written := TRUE; end;
    if text[i] = 'I' then begin write(upcase(buchs)); written := TRUE; end;
    if text[i] = 'O' then begin write(upcase(buchs)); written := TRUE; end;
    if text[i] = 'U' then begin write(upcase(buchs)); written := TRUE; end;
    if text[i] = 'a' then begin write(buchs); written := TRUE; end;
    if text[i] = 'e' then begin write(buchs); written := TRUE; end;
    if text[i] = 'i' then begin write(buchs); written := TRUE; end;
    if text[i] = 'o' then begin write(buchs); written := TRUE; end;
    if text[i] = 'u' then begin write(buchs); written := TRUE; end;
    if written = FALSE then write(text[i]);
  end;
  end;
  Readkey;
End.