Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong tệp input.txt (các số cách nhau bởi dấu cách và được viết trên cùng một dòng). Tính và đưa kết quả ra màn hình. Giúp mình với :))

Const Fi='Input.txt';
Var f: text;
    A: array[1..1000] of longint;
    n,i: longint;
Begin
        Assign(f,Fi); Reset(f);
        n:=0;
        While not eof(f) do
        Begin
                inc(n);
                Read(f,A[n]);
        End;

        For i:=1 to n-1 do
                If i mod 2 = 1 then
                        Write(A[i]+A[i+1],' ');
        Close(f);
        Readln
End.

var i,n,k:longint;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
while not eof do
begin
read(n);
read(k);
write(n+k,' ');
end;
close(input);
close(output);
end.