[Страдалецъ]

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var
Value: Integer;
S: String;
C: Char;
begin
 Value := 123456789;
 WriteLn(Value);
 S := IntToStr(Value);
 C := S[1];
 S[1] := S[Length(S)];
 S[Length(S)] := C;
 Value := StrToInt(S);
 WriteLn(Value);
 ReadLn;
end.