Дан файл из чисел. Создать второй файл из чисел первого файла, у которых сумма цифр находится в пределе от 12 до 34. Pascal

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

Var
inputFile, outputFile: text;
num, digit, sum: integer;

Function DigitSum(n: integer): integer;
Begin
DigitSum := 0;
While n > 0 do
Begin
Digit := n mod 10;
DigitSum := DigitSum + Digit;
n := n div 10;
End;
End;

Begin
Assign(inputFile, 'input.txt');
Reset(inputFile);

Assign(outputFile, 'output.txt');
Rewrite(outputFile);

While not Eof(inputFile) do
Begin
Readln(inputFile, num);
sum := DigitSum(num);

End;

Close(inputFile);
Close(outputFile);
End.