program ConvUmlaut;

uses Crt;

var mystr: string;

procedure ChangeAll(var text: string; what, targ: string);
var x: byte;
begin
  while Pos(what,text) > 0 do begin
    x := Pos(what,text);
    Delete(text,x,1);
    Insert(targ,text,x);
  end;
end;

begin
  ClrScr;
  mystr := 'x';
  while mystr<>'' do begin
    Write('Dein Text mit Umlauten: ');
    ReadLn(mystr);
    ChangeAll(mystr,'„','ae');
    ChangeAll(mystr,'”','oe');
    ChangeAll(mystr,'','ue');
    ChangeAll(mystr,'Ž','AE');
    ChangeAll(mystr,'™','OE');
    ChangeAll(mystr,'š','UE');
    ChangeAll(mystr,'á','ss');
    Write('Dein Text ohne Umlaute: ');
    WriteLn(mystr);
  end;
end.