, напишите программу для того, чтобы в целом натуральном числе n поменять местами первую и последнюю цифру, с помощью цикла While в Pascal A

Пожалуйста, напишите программу для того, чтобы в целом натуральном числе n поменять местами первую и последнюю цифру, с помощью цикла While в Pascal ABC.
Дам за него 15 баллов. Пожалуйста, помогите!

  • program chik;
    var n,a,b,s,q,k:integer;
    begin
    readln(n);
    q:=n mod 10;
    while n>0 do
    begin
    b:=n mod 10;
    n:=n div 10;
    s:=s*10+b;
    end;
    n:=q;
    s:=s div 10;
    while s>10 do
    begin
    k:=s mod 10;
    s:=s div 10;
    n:=n*10+k;
    end;
    n:=n*10+b;
    writeln(n);
    end.