ПОмогите в паскале abc

Question

Разработать структуру типа «запись» для представления результатов сдачи сессии группой студентов. Запись должна включать следующие поля: номер зачетки, фамилия и инициалы студента, оценка по информатике, оценка по математике, оценка по экономике. Создать типизированный файл ‘11‑1.dbf’, содержащий данные для каждого студента группы. Написать программу, которая читает данные из файла в массив записей и отображает их на экране в виде таблицы. Определить: 
а) студентов, набравших максимальную сумму оценок в сессию; 
б) студентов, набравших минимальную сумму оценок в сессию. 
Исходные данные: 
Номер 
зачетки 
Фамилия И. О. 
Инфор­матика 
Мате­матика 
Эконо­мика 
 
2001345 
Иванов С. П. 
4 
4 
5 
 
2001349 
Васильева С. И. 
3 
4 
3 
2001353 
Николаев С. М. 
5 
5 
4 
 
2001371 
Петухов А. С. 
3 
3 
3 
2001459 
Сергеева В. Б. 
3 
2 
4

Елена Кротова · Accepted Answer

переделай эту прогу под свою 
program pro ; 
uses crt; 
type student = record 
g:integer; 
fam: string[50]; 
imja: string[30]; 
ot: string [30]; 
gr: integer; 
pol: string [1]; 
f:integer ; 
m:integer ; 
oi:integer ; 
end; 
var 
a: array[1..255] of student ; 
i,n:integer ; 
 fp:file of student ; 
 w:student; 
Begin 
clrscr; 
assign (fp,'C:\student.dat'); 
rewrite(fp) ; 
write('Введите колличество студентов: '); 
readln(n); 
writeln; 
writeln('Введите данные о каждом: '); 
writeln; 
for i := 1 to n do 
begin 
write('Группа: ',i,'-ого студента: '); 
readln(w.g); 
write('Фамилия ',i,'-ого студента: '); 
readln(w.fam); 
write('Имя ',i,'-ого студента: '); 
readln(w.imja); 
write('Отчество ',i,'-ого студента: '); 
readln(w.ot); 
write('Год рождения: ',i,'-ого студента: '); 
readln(w.gr); 
write('Пол: ',i,'-ого студента: '); 
readln(w.pol); 
write('Оценка по физике: ',i,'-ого студента: '); 
readln(w.f); 
write('Оценка по математике: ',i,'-ого студента: '); 
readln(w.m); 
write('Оценка по информатике: ',i,'-ого студента: '); 
readln(w.oi); 
 write(fp,w); 
end ; 
close(fp) ; 
 reset(fp); n:=0; 
 while not eof(fp) do begin inc(n); //чтение файла 
 read(fp,w); a[n]:=w; // в массив А 
 end; // 
 close(fp) ; 
 for I:=1 to n do 
 with a[ i ] do //печать массива А 
 writeln(i:2,fam:10,imja:7,ot:7,gr:5,pol:2,f:3,m:3,oi:3); 
for I:=1 to n do begin 
if (a[ i ].f=2) and (a[ i ].m=2) and (a[ i ].oi=2) and (a[ i ].pol='M' ) 
then write(a[ i ].fam:10,a[ i ].imja:10,a[ i ].ot:10) ; 
end ; 
readln ; 
end.