program DemoOrd;
uses CRT;
var
{Variables para la primera parte del demo}
PosLetra : integer;
{para la segunda parte del demo}
Palabra1,Palabra2 : string;
Ord1, Ord2 : integer;
begin
ClrScr;
PosLetra := Ord('a');
WriteLn(PosLetra);
PosLetra := Ord('z');
WriteLn(PosLetra);
ReadKey;
ClrScr;
{Fin Primera Parte del Demo}
Write('Ingese una palabra cualquiera: ');
ReadLn(Palabra1);
Write('Ingese una palabra cualquiera que empieze con una letra distinta: ');
ReadLn(Palabra2);
Ord1 := Ord(Palabra1[1]); {Seria la primera letra de la palabra}
Ord2 := Ord(Palabra2[1]); {Seria la primera letra de la segunda palabra}
WriteLn('A continuacion se escribiran las palabras ordenadas alfabeticamente');
WriteLn('');
WriteLn('Presione una tecla');
ClrScr;
if Ord1 < Ord2 then
begin
WriteLn(Palabra1);
WriteLn(Palabra2);
end
else if Ord2 < Ord1 then
begin
WriteLn(Palabra2);
WriteLn(Palabra1);
end
else if Ord1 = Ord2 then
begin
Writeln('Se suponia que tenian que empezar con letras distintas');
end;
readkey;
end.