программа-переделать

@Призрак · Регистрация: 06.06.2010

Помогите переделать а то я незнаю как её доделать((, плиззз))вот такое зание((:
Постановка задачи:
Подготовить данные об абитуриентах,поступающих в техникум.Информацию о каждом абитуриенте оформить в виде записи,содержащей следующие поля:
1.Фамилия,Имя,Отчество
2.Год рождения
3.Год окончания школы
4.Оценки в атестате
5.Признак--нуждается ли в общежитии
6.Оценки вступительных экзаменов.

Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.
1)Удалить из внешнего файла все записи,удолитворяющие условию,заданному в вариант,и распечатать информацию,оставшуюся в файле.
2)Добавить N записей в начало(конец) внешнего файла и распечатать записи полученного файла согласно конкретному варианту.

Вариант:
1 a)Из внешнего файла,содержащего исходные данные,удалить записи,соответствующие:
абитуриентам,получившим хотя бы одну оценку 2.Распечатать полученный файл.
1 б)Используя внешний файл,содержащий исходные данные,добавить N записей и распечатать:
Список абитуриентов,имеющих в аттестате оценки только 5 N=2.

вот что у меня получилось(

Pascal

Program Pascal;
Uses crt;
Const fname='LabRab2.pas';
Type st=record
fam:string;
im:string;
ot:string;
god_r:integer;
god_ok_shk:integer;
 
obshejitie:string;
attestat_mat:integer;
attestat_fiz:integer;
attestat_ist:integer;
 
exam_mat:integer;
exam_fiz:integer;
exam_ist:integer;
end;
Var t:array[1..3] of st;
i,ch,j:integer;
h: file of st;
 
 
begin
 
write('vvedite kol-vo abiturientov: '); readln(ch);
 
 
for i:=1 to 2 do begin
writeln('svedeniya o ' ,i,' studente');
write('familiya',i,'-go studenta : '); readln(t[i].fam);
write('imya',i,'go studenta : '); readln(t[i].im);
write('otchestvo',i,'go studenta: '); readln(t[i].ot);
write('god rojdeniya',i,'go studentaя: '); readln(t[i].god_r);
write('god okonchaniya shkoli ',i,'go studentaя: '); readln(t[i].god_ok_shk);
 
write('nujdaetsya v obshejitie ',i,' studentя: '); readln(t[i].obshejitie);
 
writeln('-----ATTESTAT----- ');
write('ocenka po matematike: ');  readln(t[i].attestat_mat);
write('ocenka po fizike: ');      readln(t[i].attestat_fiz);
write('ocenka po istorii: ');     readln(t[i].attestat_ist);
 
writeln('------EXAMENI------ ');
 
write('ocenka po matematike: ');  readln(t[i].exam_mat);
write('ocenka po fizike: ');      readln(t[i].exam_fiz);
write('ocenka po istorii: ');     readln(t[i].exam_ist);
 
end;
writeln('-------------------------------');
writeln('svedeniya o studentah: ');
 
for i:=1 to 2 do
 
writeln('fio 1-go studenta : ', t[1].fam, t[1].im, t[1].ot);
writeln('god rojdeniya 1-go studenta :', t[1].god_r);
writeln('nujdaetsya li 1 student v obshejitii :',t[1].obshejitie);
writeln('ocenki 1-go studenta :');
 
writeln('matematika: ',t[1].exam_mat);
 
writeln('fizika: ',t[1].exam_fiz);
 
writeln('istoriya: ',t[1].exam_ist);
 
writeln;
 
writeln('fio 2-go studenta :', t[2].fam, t[2].im, t[2].ot);
writeln('god rojdeniya 2-go studenta :', t[2].god_r);
writeln('nujdaetsya li 2 student v obshejitii :',t[2].obshejitie);
writeln('ocenki 2-go studenta :');
 
writeln('matematika: ',t[2].exam_mat);
 
writeln('fizika: ',t[2].exam_fiz);
 
writeln('istoriya: ',t[2].exam_ist);
 
writeln;
Assign (h,fname);
{$I-}
reset(h);
If Ioresult<>0 then rewrite(h);
{$I+}
for i:=1 to ch do write(h,t[i]);
 
close(h);
writeln('dannie zapisani v fail ',fname);
readln;
 
end.

Опции темы