Дано натуральное число N (1

Var
  s:string;
  c1,cn:char;
  n:integer;
begin
  Write(Введите натуральное число: ); Read(n);
  Str(n,s);
  c1:=s[1];
  cn:=s[Length(s)];
  if c1>cn then Writeln(Первая цифра больше последней)
  else
    if c1    else Writeln(Первая и последняя цифры одинаковы)
end.

Тестовые решения
Введите натуральное число: 362336
Первая цифра меньше последней

Введите натуральное число: 7341423
Первая цифра больше последней

Введите натуральное число: 4624
Первая и последняя цифры одинаковы