нужна помощь. Задача на сортировку, я ее почти решила, но ответ неправильно выдает( Опции

[sveta_axi]

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

Задано натуральное число N, в десятичной записи которого не более 6 цифр. Переставить цифры так, чтобы получилось наименьшее из чисел, кот. можно составить из его цифр.

Program zadacha1; 
uses crt; 
var i,t, j: byte; p,n:longint; a:array[1..6] of byte; 
begin 
clrscr; 
write('vvedite N'); 
readln(n); p:=n; 
for i:=1 to 6 do begin 
a[i]:=p mod 10; 
p:= p div 10; end; 
for i:=1 to 6 do 
for j:=1 to 5 do 
if a[j]<a[j+1] then begin 
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=a[j]; end; p:=0; t:=1; 
for i:=j to 6 do begin 
p:=a[i]*t+p; 
t:=t*10; end; 
writeln('naimenshee chislo coctavlennoe iz cifr chisla', n ,' =', p); 
readln; 
end.

Тегами не забываем пользоваться...

Сообщение отредактировано: volvo - 18.12.2010 2:17