Моля за помощ за курсова работа по Програмиране на Паскал

условието ми е: За група студенти са зададени Име,ЕГН,оценки по физика,математика и програмиране.Да се напише програма,която съхранява данните във файл и избира следните операции от менюсъздава празен файл*добавяне на данни за студентикъм файла*изтриване на данните за студент по зададен ЕГН*извеждане в текстов файл на имената и ЕГН на студентите които трябва да се явят на поправителен по ПрограмиранеКода ми е верен с изключение на последната процедура която не мога да се сетя как ще станеБЛАГОДАРЯ ВИ ПРЕДВАРИТЕЛНО!!------->>>>TypeTipStudent=recordIme:string[20]; EGN:string[10];OcFiz,OcMath,OcProgr:integer;end;VarStudentFl:file of TipStudent;TxtFl:text;ImeFl:string[20];Student:TipStudent;C:byte;Procedure ReadStudent(Var St:TipStudent);BeginWith St dobeginWrite(' ':20,'Vavedete ime: ');Readln(Ime);Write(' ':20,'Vavedete EGN: ');Readln(EGN);Writeln(' ':20,'Vavedete ocenki po 3-te disciplini: ');Write(' ':20,'Vavedete ocenka po fizika: ');Readln(OcFiz);Write(' ':20,'Vavedete ocenka po matematika: ');Readln(OcMath);Write(' ':20,'Vavedete ocenka po programirane: ');Readln(OcProgr);endEnd;Procedure WriteStudent(St:TipStudent);BeginWith St do Writeln('Ime: ',St.Ime);Writeln('EGN: ',St.EGN);Writeln('Ocenka po fizika: ',St.OcFiz);Writeln('Ocenka po Matematika: ',St.OcMath);Writeln('Ocenka po Programirane: ',St.OcProgr);End;Procedure SzdPrz;BeginRewrite(StudentFl); Close(StudentFl);Writeln;Writeln(' Failyt e syzdaden.')End;Procedure Dobaviane;VarCh:char;BeginReset(StudentFl); Seek(StudentFl,FileSize(StudentFl));RepeatReadStudent(Student); Write(StudentFl,Student);Write('Shte prodyljite li dobavqneto? ');readln(Ch)until Ch in ['N','n','Н','н'];;Close(StudentFl);End;Procedure Iztrivane;VarDelFl:file of TipStudent;EGN:string[10];BeginWrite('Vavedete EGN: ');Readln(EGN);Reset(StudentFl); Assign(StudentFl,'Del'); Rewrite(DelFl);While not EOF(StudentFl) dobeginRead(StudentFl,Student);If Student.EGN<>EGNthen Write(StudentFl,Student)else Writeln('Dannite za student s EGN: ',EGN,' sa iztriti.');end;Close(StudentFl); Close(DelFl); Erase(StudentFl); Rename(DelFl,ImeFl);Writeln;End;Procedure Izvejdane(St:TipStudent);With St do beginReset(StudentFl); Seek(StudentFl,1);While Not EOF(StudentFl) do beginRead(StudentFl,St);If St.OcProgr=2Append(TxtFl);Write(TxtFl,St)end;end;BEGINWrite('Zadaite ime na faila ');Readln(ImeFl);Assign(StudentFl,ImeFl);RepeatWriteln(' ':20,'MENU NA IZPALNQVANITE OPERACII:');Writeln(' ':33,'1 - za syzdavane na nov fail');Writeln(' ':33,'2 - za dobavqne na studenti');Writeln(' ':33,'3 - za iztrivane na studenti');Writeln(' ':33,'4 - za izvejdane v tekstov fail na neizdyrjalite izpit po Programirane');Write(' ':20,'Posochete operaciq ili 0 za krai: ');Readln©;Case C of1:SzdPrz;2:Dobaviane;3:Iztrivane;4:Izvejdane;end;until C=0End.