Задача по программированию 8 класс. Решите как положено через паскаль!

Дано трехзначное число, в котором все цифры различны. Получить шесть чисел, образованных при перестановке цифр заданного числа.

Uses crt;

Var p1, p2, p22, k, p3, i: integer;

b:array [1 ... 6] of integer;

Begin

Writeln ('введите трехзначное целое число - ') ;

Readln (k) ;

p1:=k div 100;

p22:=k mod 100;

p2:=p22 div 10;

p3:=p22 mod 10;

writeln ('p1 = ', p1,'p2 = ', p2,'p3 = ', p3) ;

b[1]:=p1+p2*10+p3*100;

b[2]:=p1+p3*10+p2*100;

b[3]:=p2+p1*10+p3*100;

b[4]:=p2+p3*10+p1*100;

b[5]:=p3+p2*10+p1*100;

b[6]:=p3+p1*10+p2*100;

for i:=1 to 6 do

writeln ('b[', i,'] = ', b) ;

end.