Системы счисления .Pascal.

[Corpinccom]

Программа переводит введенное число с клавиатуры в 5,6,7 систему счисления.
Здравствуйте! Подскажите пожалуйста.
Что делает и как работает строка
1. s:chr(d+ord('0'))+s;
2. if s='' then s:='0';
3. Как выводятся числа в обратном порядке.
4. Почему программа выводи числа в 5,6,7 системе одинаковые.
Собстенно сама программа:

program TRANSLATE_IN_3;
var s:string;
    i,d,p:integer;
    n:longint;
begin
write('‚Введите число :');
readln(n);
for p:=5 to 7 do   
 begin
  while n>0 do     
   begin
    d:=n mod p;           
    s:=chr(d+ord('0'))+s; 
    n:=n div p;           
   end;
  if s='' then s:='0';
  writeln('в ',p,'-чной:',s);
 end;
 readln;
end.

[eoln]

1) Надо инициализировать переменные при каждой итерации
Меняй

readln(n);
for p:=5 to 7 do 
begin
while n>0 do

на

readln(n);
k:=n;
for p:=5 to 7 do
begin
n:=k;
s:='';
while n>0 do

где k: longint
2) Используй тег [C0DE] для оформления кода - кнопка с решёткой (#)

[Corpinccom]

Спасибо end of line )))