составить программу записывающее четырехзначное число напротив

program mirror;
var n, k, s: integer;

begin
writeln(Введите целое число:);
readln(n); //Ввод числа
s:= 0; //изначальное значение остатка при разделеньи

while n gt; 0 do
begin
k:= n mod 10; //нахождение заключительной числа
s:=s * 10 + k; //прибавление отысканной цифры в конец числа
n:= n div 10 // отсекается заключительная цифра от начального числа
end;
writeln(s);

end.