Удаление элементов в одномерном массиве, Задача в паскале: создать одномерный массив,содержащий целые числа.Удалить все нечётные элементы массива. Сделать с процедурой

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

program DeleteOddElements;

const
size = 10;

var
arr: array[1..size] of integer;
i, j: integer;

procedure DeleteOddElements(var arr: array of integer; var size: integer);
var
i, j: integer;
begin
j := 0;
for i := 1 to size do
begin
if arr[i] mod 2 = 0 then
begin
j := j + 1;
arr[j] := arr[i];
end;
end;
size := j;
end;

begin
// Initialize array
for i := 1 to size do
begin
arr[i] := random(20);
write(arr[i], ' ');
end;

writeln;

DeleteOddElements(arr, size);

// Print updated array
for i := 1 to size do
begin
write(arr[i], ' ');
end;

end.