Переставить местами первую и последнюю цифры числа

var
  n, m, c1, cp: longint;
  k, i: byte;
  f: file of integer;
 
begin
  assign(f, 'file.dat');
  reset(f);
  read(f, n);{например 12345}
  close(f);
  cp := n mod 10;{последняя цифра}
  n := n div 10;{число без последней цифры}
  m := n;{запомним его}
  k := 0;
  while m > 9 do{пока не останется 1 цифра}
  begin
    m := m div 10;
    k := k + 1;{количество разрядов без первого}
  end;
  c1 := m;{запомним первую цифру}
  for i := 1 to k do
  begin
    m := m * 10;{повышаем разряд числа, равного первой цифре}
    cp := cp * 10;{повышаем разряд последней цифры}
  end;
  n := (n - m) * 10 + c1 + cp * 10;{получаем число=(1234-1000)*10+1+5000*10=52341}
  writeln('n2=', n);
end.

var n : string;
    tmp : Char;
    f : TextFile;
begin
 AssignFile(f, 'c:\tmp\1.txt');
 Reset(f);
 Read(f, n);
 CloseFile(f);
 Writeln('Old Number: ', n);
 tmp := n[1];
 n[1] := n[Length(n)];
 n[Length(n)] := tmp;
 Writeln('New Number: ', n);
 Readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var n : string;
    tmp : Char;
    f : TextFile;
begin
 AssignFile(f, 'C:\tmp\forteen.txt');
 Reset(f);
 Read(f, n);
 CloseFile(f);
 Writeln('Old Number: ', n);
 tmp := n[1];
 n[1] := n[Length(n)];
 n[Length(n)] := tmp;
 Writeln('New Number: ', n);
 Readln;
end;
end.

Label1.Caption := 'Old Number ' + n;

Label2.Caption := 'New Number ' + n;