ЗадачаЯЗЫК PASCAL) Найти минимальное из двух чисел и переставить…

var a,b,N,M,k,cn,c1: longint; beginread (a,b); if a>b then N: =b else N: =a; cn: =N mod 10; M: =N; k: =1; while N>0 do begin c1: =N mod 10; k: =k*10; N: =N div 10; end; N: =M-c1*(k div 10)+cn*(k div 10) -cn+c1; writeln ('-'); write (N); end.