Проблема с "базой данных"

[Architect]

Здравствуйте.
Очень нужна ваша помощь в задании-сдача курсовой на носу,очень нужно это сделать,а не получается!
В общем,задание-база данных абитуриентов.Я смог сделать почти все,но нужно кое-что доделать,и кое-что прикрутить,помогите,пожалуйста!
Надо сделать так,чтобы в полях ввода баллов по предметам нельзя было ввести больше 100,надо прикрутить поле ввода возраста,чтобы оно тоже приплюсовывалось к фио и оценкам при показе,надо сделать сортировку по фио,и надо починить функцию расчета среднего балла,которая не работает,если считывать заранее сохраненные данные,или хотя чтобы при высчитывании среднего балла показывалось только 2 знака после запятой,и уж совсем идеально,но я понимаю,что тяжело выполнимо-чтобы всё показывалось по столбцам.
Заранее спасибо всем,кто откликнется!

[Architect]

Исходный код:

unit Unit1;

interface

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

  const n=3;
  type
  SaveD = record
    Ed1: String[255];
    Ed2: String[255];
    Ed3: String[255];
    Ed4: String[255];
    Ed5: String[255];
    end;

    ball=record                   { îïèñàíèå òèïà çàïèñè }
         fizik,matem,progr: integer;
         end;
    zap=record
          fio: string[255];        { ïîëå ôàìèëèè ñòóäåíòà }
          fak: string[3];         { ïîëå íàçâàíèÿ ôàêóëüòåòà }
          oz: ball;               { ïîëå îöåíîê }
          sb:real;                { ïîëå ñðåäíåãî áàëëà }
         end;
    ar=array[1..n] of zap;        { ìàññèâ çàïèñåé }
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:byte;
  mas:ar;
  x:zap;
  F: File of SaveD;
  D: SaveD;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
 Edit1.SetFocus;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
{  Äëÿ ââîäà ìàññèâà çàïèñåé - èñïîëüçóåì ñîñòàâíûå èìåíà }
         Edit1.Setfocus;
         mas[i].fio:=Edit1.Text;
         mas[i].fak:=ComboBox1.Text; 
         mas[i].oz.fizik:=StrToInt(Edit2.Text);
         mas[i].Oz.matem:=StrToInt(Edit3.Text);
         mas[i].Oz.progr:=StrToInt(Edit4.Text);
         Memo1.Lines.Add(mas[i].fio+' '+mas[i].fak+' '+IntToStr(mas[i].oz.fizik)
         +' '+' '+IntToStr(mas[i].oz.matem)+' '+IntToStr(mas[i].oz.progr));
         inc(i);
         if i>n then begin
                       Button1.Enabled:=False;
                       exit;
                     end
                else begin
                       Edit1.clear;
                       ComboBox1.text:='';
                       Edit2.clear;
                       Edit3.clear;
                       Edit4.clear;
                       Edit1.Setfocus;
                     end;

 { Âûâîä ìàññèâà çàïèñåé â Memo1 }

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Memo1.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
 var
   i,j:integer;


      Begin
{ Ñîðòèðîâêà  ìàññèâà  çàïèñåé }
    for i:=1 to n-1 do
      for j:=i downto 1 do
           if mas[j].sb>mas[j+1].sb
             then begin
                    x:=mas[j];
                    mas[j]:=mas[j+1];
                    mas[j+1]:=x;
                  end;
{ Âûâîä îòñîðòèðîâàííîãî ìàññèâà }
       Memo1.Lines.Add('ñîðòèðîâêà ïî ñðåäíåìó áàëëó');
       for i:=1 to n do
          with  mas[i] do
           begin
         Memo1.Lines.Add(mas[i].fio+' '+IntToStr(mas[i].oz.fizik)+' '+
         IntToStr(mas[i].oz.matem)+' '+
         IntToStr(mas[i].oz.progr)+' '+FloatToStr(mas[i].sb));
          end;

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


procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('save.data');
end;



procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Save.data');
end;

procedure TForm1.Button7Click(Sender: TObject);
var
   i,j:integer;

begin
{ Âû÷èñëåíèå ñðåäíåãî áàëëà, èñïîëüçóåì îïåðàòîð ïðèñîåäèíåíèÿ WITH }
    Memo1.Lines.Add('Ñð. áàëë êàæäîãî');
    for i:=1 to n do
       with  mas[i] do
       Begin
         sb:=(oz.fizik+oz.matem + oz.progr)/3;
         Memo1.Lines.Add(fio+' '+FloatToStr(sb));
       end;
    end;
 begin
 i:=1;

end.