Пожалуйста посчитайте пожалуйста решить!!!! Срочно надо!!! Язык паскаль​

готово. PascalABC

program min4;

var

  n: integer;

  i, j: integer;

  a: array[1..4] of integer;

begin

 Write('Введите четырехзначное число: '); ReadLn(n);

 for i := 1 to 4 do begin

     a[5 - i] := n mod 10;

     n := n div 10;

 end;

 for i := 1 to 3 do

   for j := i + 1 to 4 do

     if a[i] > a[j] then swap(a[i],a[j]);

 for i := 1 to 4 do begin

   if a[i] <> 0 then begin

     swap(a[i],a[1]);

     break;

   end;

 end;

 n := a[1];

 for i := 2 to 4 do

     n := n * 10 + a[i];

 WriteLn('Минимальное число из этих цифр равно ', n);

end.