Ord no es una unidat
; es una funcion que se encuentra en la unidad CRT.tpu
Te dejo un ejemplo para que quede más claro.
<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>
XCODE </td></tr><tr><td id='XCODE'><!--exc1-->
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.
<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->
Suerte
