Дано натуральное число. верно ли, что первая цифра больше последней. вывести сообщение на экран. . паскаль. информатика.

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

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

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