Привет, помогите пожалуйста с заданием, ну очень надо!! 
надо что бы можно было записывать, считывать, что то в этом роде ! 
на тему школы! я пыталась сделать, но она у меня не работает! 
я с ней замучилась уже! program school;
uses crt;
type gry=record
nomer: 1..9;
FIO:string[35];
gorod:string[20];
ylica:string[15];
dom:string[4];
index:string[6];
yspevaemost:string[50];
end;
var y:array [1..40] of gry;
FIO:string;
gorod:string;
ylica:string;
dom:string;
index:string;
yspevaemost: string;
s,n,i:integer;
f:text;
x:char;
label pr,nat,sap,stit;
begin
nat:
writeln('vyberite 1 iz pynktov');
writeln('1-zapis v fail');
writeln('2-schityvanie s faila');
writeln('9-vyxod');
readln(s);
case s of
1:goto sap;
2:goto stit;
9:exit
else writeln ('dlr tega drygie tisla vvodish. tak rabotat ne bydy.');
end;
sap:
clrscr;
assign (f, 'c:\grypp.txt');
rewrite (f);
writeln ('vvedite FIO stydenta');
readln(FIO);
writeln ('vvedite pochtovyi index');
readln(index);
writeln ('vvedite gorod');
readln(gorod);
writeln ('vvedite ylicy');
readln (ylica);
writeln ('vvedite nomer doma');
readln (dom);
writeln('yspevaemost');
readln (yspevaemost);
writeln (f,'gryppa', 'FIO stydenta', 'gorod', 'ylica', 'dom', 'index', 'yspevaemost');
for i:=(1) to (n) do
with y[i] do
begin
if nomer = 1 then
writeln (f, nomer:4, FIO:15, ylica:15, dom:4, index:10, yspevaemost:10);
end;
for i:=1 to n do
with y[i] do
if nomer = 2 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 3 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 4 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to 5 do
with y[i] do
if nomer = 5 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 6 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 7 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 8 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
if nomer = 9 then
writeln (f, nomer:4, FIO:15, gorod:15, ylica:15, dom:4, index:10, yspevaemost:10);
for i:= 1 to n do
with y[i] do
close(f);
readln;
goto nat;
begin
stit:
assign(f, 'c:\grypp.txt');
clrscr;
rewrite (f);
while not EOF (f) do
begin
read (f,x);
write (x,'')
end;
close(f);
readln;
end;
end.
Заранее спасибо! 
