ввести три числа и найти, правильно ли, что они вводились в

Var one,two,three:integer;
Begin   
 Write('Введите первое число число: ');   
 ReadLn(one); 
 Write('Введите второе число число: ');   
 ReadLn(two);   
 Write('Введите третье число число: ');   
 ReadLn(Three);

 if (one lt; two) and (two lt; Three) then   
  writeln('Числа введены в порядке возрастания') 
 else   
  writeln('Числа НЕ введены в порядке возрастания');
End.

Var
i,k,j:integer;
begin
readln(i,k,j);
if ( (ilt;k) and (klt;j)) then
write ('true')
else
writeln('false');
end.