Определить средний балл по университету и вывести список абитуриентов

Type
TStudent = record
FIO: string[40]; // Поле ф.и.о.
otc: array[1..3] of word; // Поле массива оценок
sball : extended; // Поле среднего балла
end;
var 
Fz : file of Tstudent; // Файл типа запись
Ft : TextFile; // Текстовой файл
Stud : array[1..100] of Tstudent; // Массив записей
nzap : integer; // Номер записи
FileNameZ, FileNameT : string; // Имя файла
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear;
Memo1.Clear;
Button1.Hide; // Сделать невидимой кнопку “Ввести запись”
nzap:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject); // Ввести новую запись
begin
nzap:=nzap+1;
with stud[nzap] do begin
FIO:=Edit1.Text;
otc[1]:=StrToInt(Edit2.Text);
otc[2]:=StrToInt(Edit3.Text);
otc[3]:=StrToInt(Edit4.Text);
sball:=(otc[1]+otc[2]+otc[3])/3;
Memo1.Lines.Add(fio+’ ‘+IntToStr(otc[1])+’ ‘+ IntToStr(otc[2])+ ’ ‘+IntToStr(otc[3]));
end;
Write(fz,Stud[nzap]); // Запись в файл
Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject); //Создание нового файла записей
begin 
OpenDialog1.Title :=’Создать новый файл’; // Изменение заголовка окна диалога
if OpenDialog1.Execute then // Выполнение стандартного диалога
begin // выбора имени файла
FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz, FileNameZ); // Связывание файловой переменной Fz c именем файла
Rewrite(Fz); // Создание нового файла
end;
Button1.Show; // Сделать видимой кнопку “Ввести запись”
end;
 
procedure TForm1.Button3Click(Sender: TObject); // Открыть существующий файл
begin 
if OpenDialog1.Execute then // Выполнение стандартного диалога
begin // выбора имени файла
FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz, FileNameZ); // Связывание файловой переменной Fz c именем файла
Reset(Fz); // Открытие существующего файла
end;
nzap:=0;
while not eof(fz) do begin 
nzap:=nzap+1;
Read(fz,stud[nzap]); // Чтение записи из файла
with stud[nzap] do
Memo1.Lines.Add(fio+’ ‘+IntToStr(otc[1])+’ ‘+IntToStr(otc[2])+
’ ‘+IntToStr(otc[3]));
end;
Button1.Show; // Сделать видимой кнопку “Ввести запись”
end;
 
procedure TForm1.Button4Click(Sender: TObject); // Сортировка записей
var i,j : word;
st : TStudent;
begin
for i:=1 to nzap-1 do // Сортировка массива записей
for j:=i+1 to nzap do
if Stud[i].sball < Stud[j].sball then begin
st:=Stud[i];
Stud[i]:=Stud[j];
Stud[j]:=st;
end;
Memo1.Clear;
for i:=1 to nzap do // Вывод в окно Memo1 отсортированных записей
with stud[i] do
Memo1.Lines.Add(IntToStr(i)+’ ‘+fio+’ ‘+FloatToStrf(sball,fffixed,4,2));
end;
 
procedure TForm1.Button5Click(Sender: TObject); // Сохранение результатов сортировки в текстовом файле
var i:word; 
begin
if SaveDialog1.Execute then // Выполнение стандартного диалога
begin // выбора имени файла
FileNameT:= SaveDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Ft, FileNameT); // Связывание файловой переменной Ft c именем файла
Rewrite(Ft); // Открытие нового текстового файла
end;
for i:=1 to nzap do
with stud[i] do Writeln(Ft,i:4,’. ‘,fio,sball:8:2); // Запись в текстовой файл
CloseFile(Ft); // Закрытие текстового файла
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
CloseFile(fz); // Закрытие файла записей при нажатии на кнопку “Сlose”
end;