Откоректируйте программу, чтобы хотябы запускалась!

[Toxass]

unit Unit122222;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type


  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label6: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
     type
     TStudent = record
    kyrs: integer;
    grupa: string;
    mestnbIu: integer;
    inostranec: integer;
    chastb_sveta: string;
  end;
var
  Form1: TForm1;
   Mas: array[1..10] of TStudent;
   a, j, p, cod: integer;
   s1, s2: string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0] := 'Курс';
  StringGrid1.cells[1, 0]:='Группа';
  StringGrid1.cells[2, 0]:='Местный';
  StringGrid1.cells[3, 0]:='Иностранец';
  StringGrid1.cells[4, 0]:='Часть света';
  a:= 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text := '';
  edit2.Text := '';
  edit3.Text := '';
  edit4.Text := '';
  edit5.Text := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a := a + 1;
  with mas[a] do begin
    kyrs := strtoint(edit1.Text);
    StringGrid1.Cells[0, a] := edit1.Text;
    grupa := edit2.Text;
    StringGrid1.Cells[1, a] := edit2.Text;
    mestnbIu := edit3.Text;
    StringGrid1.Cells[2, a] := edit3.Text;
    inostranec := edit4.Text;
    StringGrid1.Cells[3, a] := edit4.Text;
    сhastb_sveta := edit5.Text;
    StringGrid1.Cells[4, a] := edit5.Text;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin
  p := 0;
  for i := 1 to a do
    with mas[i] do
      if prop <> 0 then
        p := p + prop;
    str(p, str1);
   edit5.Text := str1;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Close;
end;

end.