Составить программку : 1) которая определяет коды 2-ух введённых с клавиатуры знаков.

коды.. . 
var a,b:char; 
begin 
writeln('Введите знаки'); 
readln(a,b); 
writeln('код 1 числа - ',ord(a)); 
writeln('код 2 числа - ',ord(b)); 
if ord(a) lt; ord(b) then 
writeln('a lt; b') 
else if ord(a) gt; ord(b) then 
writeln('b lt; a') 
else writeln('a = b'); 
readln; 
end.