Pascal, сложить числа из input.txt в output.txt

Var
a, b: integer;
input, output: text;
Begin
Assign(input, 'input.txt');
Reset(input);
Assign(output, 'output.txt');
Rewrite(output);
Read(input, a);
Read(input, b);
Write(output, a+b);
Close(input);
Close(output);
End.