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

Assign (F, 'Result. txt');

Rewirte (F);

Readln (N);

S : = 0;

for i:=1 to N do begin

B : = Sqr (i - 1);

WriteLn (F, B);

if not Odd (B) then S : = S + B;

end;

Close (F);

WriteLn ('Сумма четных чисел = ', S);

Описание переменных и остальное оформление самостоятельно.