алгоритм цикла в Delphi

[dearkato]

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

[whatever]

var
  n,i:integer;
  k:char;
  str:string;
begin
  writeln('Enter N:');
  readln(n);
  str:=inttostr(n);
  i:=length(str);
  k:=str[i];
  str[i]:=str[1];
  str[1]:=k;
  n:=strtoint(str);
  writeln('RESULT= ',n);
  readln
END.

Ну и естественно вводимое число не должно привышать пределы integer'а.

[wowsel]

procedure TForm1.Button1Click(Sender: TObject);
//дано натуральное число n. переставить первую и последнюю цифры данного числа
var s,t:string;
begin
s:=InputBox('Ввод числа','Введите n','123456789');
t:=Copy(s,length(s),1);
t:=t+(copy(s,2,length(s)-2));
t:=t+(copy(s,0,1));
Showmessage('Получилось:'+t);
end;

[whatever]

Кстати да, чет не подумал, что число можно изначально представлять как строку, для данного задания в самый раз.

[dearkato]

Сообщение от whatever

var
  n,i:integer;
  k:char;
  str:string;
begin
  writeln('Enter N:');
  readln(n);
  str:=inttostr(n);
  i:=length(str);
  k:=str[i];
  str[i]:=str[1];
  str[1]:=k;
  n:=strtoint(str);
  writeln('RESULT= ',n);
  readln
END.

а можно данную программу написать в виде простейших циклов? мы пока еще не работаем со строками((

[Аватар]

  if n>9 then begin
    i:=10;
    while n div i>9 do i:=i*10;
    n:=((n-(n div i)*i) div 10)*10+(n mod 10)*i+(n div i);
  end;
  writeln('RESULT= ',n);

[XXXsaf]

А можно эту программу в Basic????