Файлы в Паскале

[Анастасия1902]

необходимо, чтобы все вводимые и выводимые сведения попадали в файл.
program zapisi;
type
tablica=record
name:string[30];
dataR:string;
godP:integer;
kurs:integer;
group:string[8];
vt,history,stat,math:byte;
sr_bal:real;
end;
date=record
day:1..31;
mounth:1..12;
year:1..2010;
end;
mas=array[1..30] of tablica;
var
f:file of tablica;
f1:text;
i,j,n:integer;
t:tablica;
sp:mas;
m:tablica;{tablica - massiv zapicei}
s_vt,s_history,s_stat,s_math,sr_bal :real;{hranenie srednih znachenii peremennih}
procedure anketa(var sp:mas);
var
i:integer;
begin
for i:=1 to n do begin
if sp[i].sr_bal=5.0 then begin
writeln(sp[i].name);
writeln(sp[i].dataR);
writeln(sp[i].godP);
writeln(sp[i].kurs);
writeln(sp[i].group);
end;end;end;

begin
write('n=');
read(n);
for i:=1 to n do
assign(f,'h:\nastya\zapisi.dat');
{$I+}
rewrite(f);
{$I-}
begin
writeln(f1,'Vvedite FIO');
readln(sp[i].name);
readln(sp[i].name);
writeln('Vvedite datu rozhdeniya');
readln(sp[i].dataR);
writeln('Vvedite god postupleniya v tehnikum');
readln(sp[i].godP);
writeln('Vvedite kurs');
readln(sp[i].kurs);
writeln('Vvedite gruppu');
readln(sp[i].group);
writeln('vvedite ocenki');
readln(sp[i].vt);
readln(sp[i].history);
readln(sp[i].stat);
readln(sp[i].math);
sr_bal:=(sp[i].vt+sp[i].history+sp[i].stat+sp[i].math);
end;
s_vt:=0; {nahodim srednie znacheniya predmetov}
s_history:=0;
s_stat:=0;
s_math:=0;
for i:=1 to n do
begin
s_vt:=s_vt+sp[i].vt;
s_history:=s_history+sp[i].history;
s_stat:=s_stat+sp[i].stat;
s_math:=s_math+sp[i].math;
end;
s_vt:=s_vt/n;
s_history:=s_history/n;
s_stat:=s_stat/n;
s_math:=s_math/n;
writeln;
write(' FIO');
write(' dataR');
write(' God postupl. ');
write(' Kurs ',' ':4);
write(' Group');
write(' ocenki ',', ':4);
for i:=1 to n do
with sp[i] do
begin

write(name);
write(' ');
write(dataR:8);
write(' ');
write(sp[i].godP:7);
write(' ');
write(sp[i].kurs:8);
write(' ');
write(sp[i].group:7);
writeln(' ',vt:3,' ',history:3,' ',stat:3,' ',math:3,' ',sr_bal:5:2);
end;
writeln(' ','Sr.bal:',' ':17,s_vt:3:1,' ',s_history:3:1,' ',s_stat:3:1,' ',s_math:3:1);
anketa(sp);
close(f);
readln;
end.

[Анастасия1902]

А у меня файл создается, но сведения туда не попадают