проблема с файлами в Pascale

[velgelmina]

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

первую программу он выполняет, но во второй пишет ошибку fail not opened
не могу понять почему он не открывает файл.
если можете то напишите свой вариант программы или укажите на возможные ошибки.
понимаю, что нагло, но первый вариант был бы предпочтительней.

[velgelmina]

вот текст первой программы:

 Program fail; uses crt;
type student=record
index:string;
fam:string;
ysp:array[1..3] of integer;
end;
var f:file of student;
a:student;
i:byte;
j:byte;
begin
clrscr;
assign (f,'d:\student.txt');
rewrite (f);
for i:=1 to 3 do begin
writeln ('vvedite familiy');
readln (a.fam);
writeln ('vvedite gruppy');
readln (a.index);
writeln ('vvedite ocenki po trem ekzamenam:');
for j:=1 to 3 do begin
readln (a.ysp[j]);
write (f,a);
end;
end;
close(f);
end.

вот вторая часть. ошибку выдает на while

Program fail2; uses crt;
type student=record
fam:string;
index:string;
ysp:array [1..3] of integer;
end;
var f:file of student;
a:student;sr:real;
S:integer;
i:byte;
m:integer;
begin
clrscr;
assign(f,'d:\student.txt');
reset(f);
while not eof(f) do begin read (f,a);
if a.ysp[i]=3 then write (a.fam);
m:=m+1;
S:=S+i;
sr:=S/m;
writeln ('srednii ball=',sr);
close (f);
end
end.

[velgelmina]

Мне решили эту задачу на mixei.ru
вот правильное решение, если кому-то понадобится
программа1:

 
Program fail;
uses crt;
type student=record
index:string;
fam:string;
ysp:array[1..3] of integer;
end;
var f:file of student;
a:student;
i:byte;
j:byte;
begin
clrscr;
assign (f,'d:\student.txt');
rewrite (f);
for i:=1 to 3 do begin
writeln ('vvedite familiy');
readln (a.fam);
writeln ('vvedite gruppy');
readln (a.index);
writeln ('vvedite ocenki po trem ekzamenam:');
for j:=1 to 3 do
readln (a.ysp[j]);
 
write (f,a);
end;
close(f);
end.

программа2:

 
Program fail2;
uses crt;
type student=record
index:string;
fam:string;
ysp:array [1..3] of integer;
end;
var f:file of student;
a:student;sr:real;
S:integer;
m:integer;
begin
clrscr;
 
assign(f,'d:\student.txt');
reset(f);
 
writeln('familii neuspevayushih:');
 
m:=0;
S:=0;
while not eof(f) do begin read (f,a);
if (a.ysp[1] <= 3) or (a.ysp[2] <= 3) or (a.ysp[3] <= 3) then writeln (a.fam);
m:=m+3;
S:=S + a.ysp[1] + a.ysp[2] + a.ysp[3];
sr:=S/m;
end;
writeln;
writeln ('srednii ball=',sr:3:1);
close(f);
readln;
end.

[Lianaaaa]

помогите пожалуйста написать программу:внести 4 числа и проверить образуют ли 3 из них геометрическую прогрессию?????????????