Если надо вывести получившееся число без ведущих нулей (т.е. 1000 превратить в 1), то можно так:

var n: integer;
begin
  readln(n);
  writeln(1000 * (n mod 10) + (n - (n mod 10) - 1000 * (n div 1000)) + n div 1000)
end.

Если надо сохранять ведущие нули, то можно, например, считать число посимвольно.

var i: integer;
  c: array[1 .. 4] of char;
  t: char;
begin
  for i := 1 to 4 do
    read(c[i]);
  t := c[1]; c[1] := c[4]; c[4] := t;
  for i := 1 to 4 do
    write(c[i])
end.