Определить, совпадает ли строка с частью заданной строки - Pascal

Формулировка задачи:

Подскажите пожалуйста как написать данную программу: В заданный непустой текст входят только цифры и буквы. Определить удовлетворят ли он следующему свойству: текст совпадает с конечным отрезком ряда 0123456789 ( например: 9, 89, 789).

Решение задачи: «Определить, совпадает ли строка с частью заданной строки»

Листинг программы

const g = '0123456789';
var s: string;
begin
  writeln('Введите строку:');
  readln(s);
  write('Строка ');
  if (length(s) > length(g)) or (pos(s, g) <> length(g) - length(s) + 1) then write('не ');
  write('совпадает с конечным отрезком ряда ', g);
  readln
end.

Объяснение кода листинга программы

Создается константа g с значением 0123456789.
Создается переменная s типа string для ввода значения пользователем.
Выводится сообщение Введите строку: для предложения пользователю ввести строку.
Считывается значение, введенное пользователем, и сохраняется в переменной s.
Выводится сообщение Строка.
Проверяется условие:
- Если длина строки s больше длины строки g, или
- Позиция подстроки s в строке g не равна разности длины g и длины s плюс 1
Если условие из пункта 6 истинно, то выводится не, иначе ничего не выводится.
Выводится совпадает с конечным отрезком ряда и значение константы g.
Ввод завершается. Этот код проверяет, совпадает ли введенная пользователем строка s с конечным отрезком строки g (0123456789).