Дано 4-х значное число. Определить, что больше само число или его перевёртыш.

program zz1;
var a, k, s:integer; // задаем переменные целого типа
begin
write(' введите заданное четырехзначное число '); // вводим число с клавиатуры
read(k);
a:=k mod 10;k:=k div 10; // получаем первую цифру перевертыша
while k<>0 do // переворачиваем число
begin
s:=k mod 10; // получаем последнюю цифру
k:=k div 10; // отбрасываем ее из числа
a:=a*10 + s; // формируем новое число
end;
if k > s // проверяем, что больше само число или его перевертыш
then writeln(' само число больше ') else writeln(' перевертыш больше '); // выводим ответ
end.