Problem bei Umlauterkennung

[Thom]

Delphi-Quellcode:

var
  N: Integer;
  S, O: AnsiString; //oder bei älteren, nicht unicodefähigen Delphiversionen, nur "String"
begin
  Readln(S);
  O:='';
  for N:=1 to Length(S) do
    case Ord(S[N]) of
      129: O:=O+'ue';
      132: O:=O+'ae';
      142: O:=O+'Ae';
      148: O:=O+'oe';
      153: O:=O+'Oe';
      154: O:=O+'Ue';
      225: O:=O+'ss';
      else O:=O+S[N]
    end;
  Writeln(O);
  Readln;
end.