PROGRAM Sorter(INPUT,OUTPUT);¢¢(* Mit diesem Programm koennen Sie 5 Woerter sortieren. Die Woerter duerfen bis zu 39 Zeichen lang sein*)¢TYPE String= ARRAY [1..39] OF CHAR;¢ Field= ARRAY [1..5] OF String;¢¢VAR A:Field;¢ B:String;¢ C,D:INTEGER;¢¢BEGIN ¢¢WRITE(CHR(125));WRITELN;WRITELN;¢¢WRITELN(' BITTE GEBEN SIE 5 WOERTER EIN');¢WRITELN;¢¢FOR C:=1 TO 5 DO READLN(A[C]);¢WRITELN;¢¢FOR D:=1 TO 10 DO¢ BEGIN;¢ IF A[1]>A[2]THEN¢ BEGIN;¢ B:=A[1];A[1]:=A[2];A[2]:=B;¢ END;¢ IF A[2]>A[3]THEN¢ BEGIN;¢ B:=A[2];A[2]:=A[3];A[3]:=B;¢ END;¢ IF A[3]>A[4]THEN¢ BEGIN;¢ B:=A[3];A[3]:=A[4];A[4]:=B;¢ END;¢ IF A[4]>A[5] THEN¢ BEGIN;¢ B:=A[4];A[4]:=A[5];A[5]:=B;¢ END;¢ END;¢¢FOR C:=1 TO 5 DO WRITELN(A[C]);¢¢END.¢
