Удалить из массива все элементы, сумма цифр которых равна 10 (решение через Паскаль)

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

program RemoveElements;

var
arr: array[1..10] of Integer;
i, num, sum, digit: Integer;

begin
writeln('Enter 10 integers:');

for i := 1 to 10 do
begin
readln(num);
arr[i] := num;
end;

writeln('Array before removing:');

for i := 1 to 10 do
begin
write(arr[i], ' ');
end;

writeln;

writeln('Array after removing:');

for i := 1 to 10 do
begin
sum := 0;
num := arr[i];

end;
end.