program Drei_Chinesen_mit_Kontrabass;
uses crt;
type vokale=set of 'a'..'z';
var v:vokale;
 Zeile:array[1..4] of string[80];
 Zeich:array[1..5] of char;
 Zeichenkette:string[80];
 j,k,l:integer;

Begin
     clrscr;
     v:=['a','e','i','o','u'];
     Zeile[1]:='Drei Chinesen mit dem Kontrabass';
     Zeile[2]:='gingen auf der Straáe und erz„hlten sich was';
     Zeile[3]:='kam ein Polizist und sprach, was ist denn das?';
     Zeile[4]:='drei Chinesen mit dem Kontrabass';

     Zeich[1]:='a';
     Zeich[2]:='e';
     Zeich[3]:='i';
     Zeich[4]:='o';
     Zeich[5]:='u';

     for k:= 1 to 4 do
     begin
     writeln (Zeile[k]);
     end;
     writeln;
     for k:= 1 to 5 do
         begin
         for j:=1 to 4 do
          begin
          Zeichenkette :=Zeile[j];
          for l:=1 to length(Zeichenkette) do
              if zeichenkette[l] in v then zeichenkette[l]:=zeich[k];
              writeln (zeichenkette);
              end;
              writeln;
              readln;
          end;
end.


repeat until keypressed;
end.