Распределение по среднему баллу

const  m=7; //количество оценок
type stud=record //тип запись с полями по условию
          fam:string;//фамилия
          ocn:array[1..m] of byte;//оценки
          srb:real;
          end;
var
  Form1: TForm1;
  n,k:integer;
  a:array of stud;//массив записей
implementation
 
{$R *.dfm}
//зададим некоторые параметры программы
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  colcount:=m;
  defaultcolwidth:=25;
  options:=options+[goediting,gotabs];
 end; 
Edit1.Clear;//очистим поля ввода и вывода
Memo1.Clear;
Memo2.Clear;
Button2.Enabled:=false;//пока отключим 2 и 3 кнопки
Button3.Enabled:=false;
end;
//ввод данных
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
val(Edit1.Text,n,c);
if(c<>0)or(n<1) then
 begin
  ShowMessage('Не введено или неверно введено количество студентов');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
SetLength(a,n);
Button1.Enabled:=false; //выключим 1
Button2.Enabled:=true;  //включим 2
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j,c:integer;
    s:string;
begin
//разрешим ввод оценок
inc(k); //считаем
j:=0;
i:=1;
a[k-1].srb:=0;
while (i<=m)and(j=0) do//ввели оценки
 begin
  val(StringGrid1.Cells[i-1,0],a[k-1].ocn[i],c);
  if(c<>0)or not(a[k-1].ocn[i] in [2..5]) then j:=1
  else
   begin
    a[k-1].srb:=a[k-1].srb+a[k-1].ocn[i];
    inc(i);
   end;
 end;
if (j=1)or(edit2.Text='') then
 begin
  showmessage('Не все данные введены верно, поправьте');
  dec(k); //если неверно, то уменьшаем счетчик
  exit
 end;
a[k-1].srb:=a[k-1].srb/m;
a[k-1].fam:=edit2.Text;//пишем в массив фамилию
s:=a[k-1].fam;
edit2.Clear;
edit2.SetFocus;
for j:=1 to m do
 begin
  s:=s+' '+inttostr(a[k-1].ocn[j]);//и оценки
  stringgrid1.Cells[j-1,0]:='';//очищаем таблицу
 end;
s:=s+'    ср.балл='+format('%.2f',[a[k-1].srb]);
Memo1.Lines.Add(s);//выводим в Мемо1
if k=n then //если ввели все
 begin
  showmessage('Все данные введены');
  edit2.Enabled:=false; //отключаем ввод
  button2.Enabled:=false; //выключим кнопку 2
  button3.Enabled:=true; //включим 3
  //отключим редактирование таблицы
  stringgrid1.Options:=stringgrid1.Options-[goediting,gotabs];
 end;
end;
//поиск данных по условию
procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
    sr:double;
    s:string;
begin
sr:=0;
for i:=0 to n-1 do
sr:=sr+a[i].srb;
sr:=sr/n;
for i:=0 to n-1 do
if a[i].srb>sr then
 begin
  s:=a[i].fam;
  for j:=1 to m do
  s:=s+' '+inttostr(a[i].ocn[j]);
  s:=s+'    ср.балл='+format('%.2f',[a[k-1].srb]);
  Memo2.Lines.Add(s);//выводим в Мемо2
 end;
end;