Малко помощ за до някъде направена задача на Паскал

[krisi4ka]

Ето я задачата Да се напише програма,която въвежда файл със записи съдържащи информация за учениците в един клас(Име,Фамилия,извинени и неизвинени отсъствия).Програмата да извежда:
а)Учениците,на които ще им бъде отнета стипендията(>10 неизвинени).
б)Учениците,които ще бъдат изключени(>15 неизвинени)
в)Учениците,които преминават на индивидуален план(>150 извинени)
г)Да се изведе файла
д)За всяка подточка да се създаде отделна процедура,като процедурите се обединят в меню.И ето какво съм написала аз:
Type
klas=record
ime,familia:string[30];
izvineni,neizv:real;
end;
T=file of klas
Var F:T;
S:klas;
Procedure readrec(S:klas);
begin
write('ime=');read(S.ime);
write('familia=');read(S.familia);
write('izvineni=');read(S.izvineni);
write('neizv=');read(S.neizv);
end;
procedure createfile(Var F:T);
begin
rewrite(F);readrec(S);
while not eof do
begin
write(F,S);
readrec(S);
readln;
end;
Close(F);
end;
Procedure writerec(S:klas);
begin
write(S.ime,' ',S.Fam,' ',S.izvineni,' ',S.neizv);
end;
Моля някой,който може да помогне да я довърша или ако има някакви редакци върху това,което съм написала да отговори ще съм му много благодарна

[Реклама]

[Vladi_mnt]

Съжалявам много, с най-голямоо удоволствие бих ти помогнал, обаче знанията ми са само до записи вкл. без файлове.....