ЦЕЛОЧИСЛЕННЫЙ ФАЙЛ

[Alina111]

Дан типизированный файл, содержащий целые числа.Написать программу, которая будет читать эти числа через одно и выводить их на монитор по 5 в строке.

[Alina111]

Вот что сама написала,возможно что бред,помогите исправить, что не так,пожалуйста.Выдает ошибку:выход за границы диапазона изменения индекса 1..100.Еще я не учла,что должно по 5 чисел в строке выводиться.

Program file1;
uses crt;
Var f: File Of Integer;
i,n: Integer;
s:array [1..100] of integer;

procedure vivod(f: File Of Integer);
Begin
ClrScr;
Assign( f ,'d:\file.txt');
Reset(f);
while not eof(f) do
read(f,s[i]);
for i:=1 to n do
if i mod 2 =1
then writeln (s[i]);
readln(s[i]);
close(f);
end;

begin
vivod(f);
end.

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

[Zer0]

Program file1;
uses crt;
Var f: File Of Integer;

procedure vivod(f: File Of Integer);
var i,n: Integer;
Begin
ClrScr;
Assign( f ,'d:\file.txt');
Reset(f);
i:=1;
while not eof(f) do begin
read(f,n);
write (n,' ');
inc(i);
if i = 6 then begin
 i:=1;
 writeln;
end;
end;
close(f);
end;

begin
vivod(f);
end.

Пожалуйста