Создать файл записей (таблицу) и вывести на экран информацию о людях (имя, год рожденя, день рождения)

[пепелаЦО]

Нужна помощь по Паскалю.
Сортировка таблицы по одному критерию (используя record)
то бишь...

Создать файл записей (таблицу) и вывести на экран информацию о людях (имя, год рожденя, день рождения, месяц рождения). Выводить информацию в виде списка, отсортированного по имени.
нужно будет на экране показать таблицу до и после сортировки...
Буду весьма признателен. Спасибо

[DM_bite]

program Xd;
const n=10;
type People = record
name: string;
god: integer;
day: integer;
month: string;
end;
var a:array [1..n] of People;
i: integer;  names,months: string;
gods,days: integer;
begin
for i:= 1 to n do
begin
ReadLn(a[i].name);
ReadLn(a[i].god);
ReadLn(a[i].day);
ReadLn(a[i].month);
end;
for i:= 1 to n do
 begin
 Write(a[i].name,'_',a[i].god,'_',a[i].day,'_',a[i].month);
WriteLn;
 end;
for i:= 1 to n-1 do
begin
if a[i].name>a[i+1].name then
 begin
 names:= a[i].name;
 a[i].name:= a[i+1].name;
 a[i+1].name:= names;
 gods:= a[i].god;
 a[i].god:= a[i+1].god;
 a[i+1].god:= gods;
 days:= a[i].day;
 a[i].day:= a[i+1].day;
 a[i+1].day:= days;
 months:= a[i].month;
 a[i].month:= a[i+1].month;
 a[i+1].month:= months;
 end;
 end;
 for i:= 1 to n do
 begin
 WriteLn(a[i].name,'-',a[i].god,'-',a[i].day,'-',a[i].month);
 end;
 ReadLn;
 end.

Как-то так, если ошибся - исправьте.

[пепелаЦО]

Огромное человеческое спасибо Вам!

[Doholyan]

вопрос зачем преременой (n) задали число (10) ????