В типизированном файле целых чисел определить сумму компанентов на четных местах. (паскаль)

[Rfn.if]

в типизированном файле хранятся н целых чисел. опредилить сумму компанентов на четных местах файла, полученные по следующему принципу: 1 меняется со 2, 3 с 4 и тд.

program l;
   var
   b: array [1..99] of integer;
   FilName : String;
 m, s,sum, j,i,kol : Integer;
   f1: file of integer;
   begin
    Writeln('vvedite nazvanie file');
 Readln (FilName);
 Writeln('vvedite kolichestvo simvolov');
 readln (kol);

 Writeln ('vvedite file : ');
  for i:=1 to kol do begin
  Readln (S);
  b[i]:=s;
  end;
   if kol mod 2 = 0 then  begin
for i:=1 to kol do begin
m:=b[i];
b[i]:=b[i+1];
b[i+1]:=m;
inc (i);
end;end
   else
   begin
for i:=1 to (kol-1) do begin
m:=b[i];
b[i]:=b[i+1];
b[i+1]:=m;
inc (i);
end;
 END;
 Assign(f1,FilName);
 rewrite (f1);
 for i:=1 to kol do
 write(f1,b[i]);
 close (f1);

 sum:=0;
for i:=2 to kol do begin
sum:=sum + b[i];
inc(i);
end;

reset(f1);
    writeln('File - ', filname);
    while not eof(f1) do
   begin
    read (f1,s);
    write (s);
    end;
    writeln;
   writeln ('summa chet = ',sum);
   close (f1);
   readln;
   end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.