ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ЗАПИСЕЙ И ФАЙЛОВ(Delphi)

[MaDDi]

Информация о сотрудниках предприятия содержит: фамилию, номер отдела и дату начала работы. Вывести списки сотрудников по отделам в порядке убывания стажа.

[Stilet]

Наработки есть? Как хранится структура?

[MaDDi]

type mas=array[0..100000] of integer;
var
Form1: TForm1;
a:mas;
n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
try
stringgrid1.Cells[0,0]:='a';
n:=strtoint(edit1.Text);
stringgrid1.ColCount:=n+1;
for i:=1 to n do
begin
a[i]:=Random(101)-50;
stringgrid1.Cells[i,0]:=inttostr(a[i]);
end;
except
on econverterror do begin
showmessage('Введено недопустимое значение!!!');
exit;
end;
else begin
showmessage('Возникла неизвестная исключительная ситуация!!!');
exit;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
n:=10;
stringgrid1.Cells[0,0]:='a';
for i:=1 to 10 do
begin
a[i]:=Random(101)-50;
stringgrid1.Cells[i,0]:=inttostr(a[i]);
end;
end;

function maxrec(a:mas;n:integer):integer;
var m:integer;
begin
if n=1 then result:=a[n]
else result:=maxrec(maxrec(a,n div 2), maxrec(a ;
end;

function max(a:mas; n:integer):integer;
var i:integer;
begin
result:=-50;
for i:=1 to n do begin
if a[i]>=result then result:=a[i]
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var f,frec,n:integer;
begin
n:=strtoint(edit1.Text);
try
f:=max(a,n);
frec:=maxrec(a,n);
except on estackoverflow do begin
showmessage('Переполнение системного стека');
exit;
end;
else begin
showmessage('Возникла неизвестная исключительная ситуация');
exit;
end;
end;
label1.Caption:='максимальный элемент равен '+inttostr(f)+' (без использования рекурсии)';
label2.Caption:='максимальный элемент равен '+inttostr(frec)+' (с использованием рекурсии)';
end;

procedure TForm1.N3Click(Sender: TObject);
begin
Button2.Click;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Button1.Click;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
BitBtn1.Click;
end;

end.

мне надо что бы сотрудники в порядке убывания выводились, а у меня только 1 самый мелкий выводиться.

[MaDDi]

............