Помогите немножко, паскаль!

Var baza: file of integer;
i,c,n,u: integer;
begin
assign(baza,'C:\PABCWork.NET/Ввод');
rewrite(baza);
readln(n);
for I:= 1 to n do begin
readln(c);
write(baza,c);
u:= i+i+1;
writeln(u);
end;
begin
close (baza);
end;
end.
Как суммировать числа?

Благодарю!

Не "u+i", а "u+c"!