Информатика задача паскаль. В массиве X(1:15) каждый элемент равен 0, 1 или 5. Переставить элементы так, чтобы сначала располагались все нули, затем все пятерки. Паскаль

Предыдущий
вопрос Следующий
вопрос

program Pascal;

typ
MyArray = array[1..15] of integer;

va
X: MyArray
i, j, temp: integer;

begi
// инициализация массив
X := (0, 1, 5, 0, 1, 0, 5, 1, 5, 0, 0, 1, 5, 0, 5);

// вывод исходного массив
writeln('Исходный массив:')
for i := 1 to 15 d
write(X[i], ' ');

// сортировка массив
i := 1
j := 15
while i < j d
begi
while (X[i] = 0) and (i < j) d
inc(i)
while (X[j] = 5) and (i < j) d
dec(j)
if i < j the
begi
temp := X[i]
X[i] := X[j]
X[j] := temp
end
end;

// вывод отсортированного массив
writeln
writeln('Отсортированный массив:')
for i := 1 to 15 d
write(X[i], ' ')
end.