33 lines
687 B
Plaintext
33 lines
687 B
Plaintext
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,'<27>','ue');
|
||
ChangeAll(mystr,'Ž','AE');
|
||
ChangeAll(mystr,'™','OE');
|
||
ChangeAll(mystr,'š','UE');
|
||
ChangeAll(mystr,'á','ss');
|
||
Write('Dein Text ohne Umlaute: ');
|
||
WriteLn(mystr);
|
||
end;
|
||
end. |