Program insertion_sort;
uses
 crt;

var
 text:string;
 a:array [0..127] of char;
 i,j:integer;
 c: char;

begin
 clrscr;
 Writeln ('Texte sortieren von Guido Moser (c) 15.05.1999');
 write ('Eingeben : ');
 readln (text);
 i:=0;
 a[i]:=char(0);
 while i<length(text) do begin
  i:=i+1;
  a[i]:=text[i];
  j:=i;
  while a[j]<a[j-1] do begin
   c:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=c;
   j:=j-1;
  end;
 End;
 Write ('Ausgabe  : ');
 i:=1;
 while i<=length(text) do begin
  write (a[i]);
  i:=i+1;
 end;
 readln
end.