Написать программу для решения задачи в Паскале: "В массиве из десяти элементов переставить все нулевые элементы в начало массива."

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

program MoveZerosToFront;
var
arr: array[1..10] of Integer;
i, j, temp: Integer;
begin
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to 10 do
begin
readln(arr[i]);
end;
// Переставляем нулевые элементы в начало массива
j := 1;
for i := 1 to 10 do
begin
if arr[i] = 0 then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
j := j + 1;
end;
end;
// Вывод элементов массива после перестановок
writeln('Массив после перестановки нулевых элементов в начало:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
end.

Пример работы программы:

Введите элементы массива:
0 5 0 3 0 7 8 0 4 0
Массив после перестановки нулевых элементов в начало:
0 0 0 0 0 5 3 7 8 4