Dze je subor www.TrSek.com/zadania/retezce.pas{ RETEZCE.PAS Copyright (c) Pavel Patak }
{ Porovna dva retezce podle abecedy. }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Retezce;
Var R1,R2 : string;
Begin
Writeln('Zadej dva retezce (malymi pismeny): '); {Vsechna velka pismena jsou v ASCII pred malymi!!!}
Readln(R1);
Readln(R2);
Writeln;
If R1 < R2 then Writeln(R1, ' stoji v abecede pred ', R2);
If R1 = R2 then Writeln('Oba retezce jsou identicke');
If R1 > R2 then Writeln(R2, ' stoji v abeceda pred ',R1);
Readln;
End.