Ввести массив записей, содержащих сведения о фамилии и екзаменационной оценке

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    tabl: TStringGrid;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
 
 
  private
    { Private declarations }
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormActivate(Sender: TObject);
begin
tabl.Cells[0,0]:='№';
tabl.Cells[1,0]:='прізвища';
tabl.Cells[2,0]:='Мова';
tabl.Cells[3,0]:='Англійська';
tabl.Cells[4,0]:='Фізкультура';
tabl.Cells[5,0]:='Всього';
tabl.Cells[0,1]:='1';
tabl.Cells[0,2]:='2';
tabl.Cells[0,3]:='3';
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
c,r:integer;
s:integer;
p:integer;
m:integer;
buf:array[0..5] of string;
i:integer;
begin
for r:=1 to tabl.rowcount do
begin
s:=0;
for c:=2 to 5 do
if tabl.cells[c,r]<>''
then s:=s+strtoint(tabl.cells[c,r])
else tabl.cells[c,r]:='0';
tabl.cells[5,r]:=inttostr(s);
end;
for r:=1 to tabl.RowCount-1 do
begin
m:=r;
for i:=r to tabl.RowCount-1 do
if strtoint(tabl.Cells[5,i])>strtoint(tabl.Cells[5,m])
then m:=i;
if r <> m then
begin
for c:=0 to 5 do
begin
buf[c]:=tabl.cells[c,r];
tabl.cells[c,r]:=tabl.Cells[c,m];
tabl.Cells[c,m]:=buf[c];
end;
end;
end;
end;
end.