Сведения про студента и десять предметов,а так же вывести тех, у кого определенные оценки

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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  const n=5;
  m=10;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Memo1: TMemo;
   stud=record 
  fam:string;
     ocn:array[1..m] of byte;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 
          end;
var
  Form1: TForm1;
  k:integer;
  a:array[1..n] of stud;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Button2.Enabled:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,c:integer;
    s:string;
begin
 
stringgrid1.Options:=stringgrid1.Options+[goediting,gotabs];
inc(k); 
j:=0;
i:=1;
while (i<=10)and(j=0) do
 begin
  val(StringGrid1.Cells[i-1,0],a[k].ocn[i],c);
  if(c<>0)or not(a[k].ocn[i] in [2..5]) then j:=1
  else inc(i);
 end;
if (j=1)or(edit1.Text='') then
 begin
  showmessage('Íå âñå äàííûå ââåäåíû âåðíî, ïîïðàâüòå');
  dec(k); 
  exit
 end;
a[k].fam:=edit1.Text;
s:=a[k].fam;
edit1.Clear;
edit1.SetFocus;
for j:=1 to m do
 begin
  s:=s+' '+inttostr(a[k].ocn[j]);
  stringgrid1.Cells[j-1,0]:='';
 end;
Memo1.Lines.Add(s);
if k=n then 
 begin
  showmessage('Âñå äàííûå ââåäåíû');
  edit1.Enabled:=false; 
  button1.Enabled:=false;
  stringgrid1.Options:=stringgrid1.Options-[goediting,gotabs];
  button2.Enabled:=true;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,p,q:integer;
    s:string;
begin
for i:=1 to n do
 begin
  p:=0;
  q:=0; 
  for j:=1 to m do
  if a[i].ocn[j]=5 then inc(p)
  else if a[i].ocn[j]=2 then inc(q);
  if p=m then
   begin
    s:=a[i].fam;
    for j:=1 to m do
    s:=s+' '+inttostr(a[i].ocn[j]);
    Memo2.Lines.Add(s);
   end;
  if q>0 then
   begin
    s:=a[i].fam;
    for j:=1 to m do
    s:=s+' '+inttostr(a[i].ocn[j]);
    Memo3.Lines.Add(s);
   end;
 end;
if Memo2.Lines.Count=0 then showmessage('Íåò êðóãëûõ îòëè÷íèêîâ');
if Memo3.Lines.Count=0 then showmessage('Íè ó êîãî íåò äâîåê');
end;
end;
 
end.