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

program z1;
uses crt;
type vec=array [1..100] of integer;
var a:vec;k,i,x,d,min:integer;
begin
     write('x=');readln(x);
     for i:=1 to x do
     begin
          a[i]:=random (10);
          write(a[i]:4);
          end;
          for k:=1 to x do
          for i:=1 to x-1 do
          if a[i]>a[i+1] then
          begin
               d:=a[i];
               a[i]:=a[i+1];
               a[i+1]:=d;
               end;
               writeln;
               for i:=1 to x do write (a[i]:4);
               end.

program z3;
uses crt;
var a,b:string;i,k:integer;
begin
     write('введите строку-');readln(a);
     b:=''; a:=a+' ';
     for k:=1 to length(a) do
     for i:=1 to length(a) do
     if a[i]<>' ' then b:=b+a[i]
     else
         begin
              if length(b)=k then
              writeln(b);
              b:=''
         end;
end.

program test;
var s,b,k,r,t:integer;
begin
readln(s);
b:=0;
k:=s;
r:=s mod 10;
while k div 10>1 do
begin
k:=k div 10;
inc(b);
end;
t:=(s mod round(exp(ln(10)*b))) div 10;
writeln(r*exp(ln(10)*b)+t*10+k:6:0);
readln;
end.

program test;
var s,k,r,t:real;b:integer;
begin
readln(s);
b:=0;
k:=s;
r:=round(s) mod 10;
while round(k) div 10>0 do
begin
k:=round(k) div 10;
inc(b);
end;
t:=(round(s) mod round(exp(ln(10)*b))) div 10;
writeln(r*exp(ln(10)*b)+t*10+k:6:0);
readln;
end.

var
a,perv,c:longint;
b,posl:integer;
begin
readln(a);
perv:=a;
posl:=a mod 10;
c:=1;
repeat
perv:=perv div 10;
c:=c*10;
until perv<10;
a:=a-(c+1)*(perv-posl);
writeln(a);
end.

program n2l;
var a,b,d,f,n,g,i:longint;
 
begin
writeln('vvedite a');
readln(n);
a:=n;
b:=a mod 10;
g:=1;
  repeat
  a:=a div 10;
  g:=g*10;
  until a<10;
d:=(n-a*g) div 10;
f:=b*g+d*10+a;
writeln(f);
readln;
end.