Дано 4-х значное число. Найти, что больше само число либо его

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