на файл задача пожалуйста

[Neznau]

Дан файл целых чисел f. Получить файл g, где первая компонента равна сумме 1-й и 2-й компоненте файла f, вторая компонента равна сумме 3-й и 4-й компоненте файла f и т. д.
Помогите пожалуйста, я знаю как там шапку и т.п., я не знаю как именно само условие написать: т.е.
for i:=1 to n do
begin
if .........

[ryton]

а числа записаны как?В строку или по одному на каждой строке

[Neznau]

по одному на каждой строке

[ryton]

вроде так,правда точно не помню как "не конец файла" там пишется
while not feof(f) do begin
readln(f,s1);
readln(f,s2);
s3:=s1+s2;
writeln(g,s3);
end;

[Neznau]

Вот так будет правильно?
Var g,f: file of integer;
s,s1:string;
i,n,a:integer;
begin s:='c:\fff.txt';
s1:='c:\ggg.txt';
assign(f,s);
assign(g,s1);
rewrite(f);
readln(n);
for i:=1 to n do
begin
readln(a);
write(f,a);
end;
close(f);
reset(f);
rewrite(g);
for i:=1 to n do
begin
readln(f,s1);
readln(f,s2);
s3:=s1+s2;
writeln(g,s3);
end;
for i:=1 to n do begin
read(g,a);
writeln(a);
end;
close(f);
close(g);
end.

[ryton]

for i:=1 to n do
begin
readln(a);
write(f,a);
end;
в этом цикле поставь writeln(f,a), иначе он тебе в одну строчку все запишет,а так вроде правильно

[Neznau]

говорит тип не тот,указывает на эту строчку
readln(a);
writeln(f,a);
end;
вот здесь ошибку показывает
readln(f,s1);
readln(f,s2);

[ryton]

Var g,f: file of integer;
s:string;
i,n,a,s1,s2:integer;
begin
s:='c:\fff.txt';
assign(f,s);
s:='c:\ggg.txt';
assign(g,s1);
rewrite(f);
readln(n);
for i:=1 to n do
begin
readln(a);
write(f,a);
end;
close(f);
reset(f);
rewrite(g);
for i:=1 to n do
begin
readln(f,s1);
readln(f,s2);
s3:=s1+s2;
writeln(g,s3);
end;
for i:=1 to n do begin
read(g,a);
writeln(a);
end;
close(f);
close(g);
end.

[eoln]

f: file of integer;

Для типизированных и файлов с прямым доступом всегда надо использовать read/write а не readln/writeln

[ryton]

тогда проще его не типизированным поставить.