База Данных, pascal Опции

[Анна]

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

Вот что получилось:

Program Lab11;
uses	crt;
type
	base = record
		name, family, otchestvo, DofBr, city, street: string;
		dom, kvartira, telefon: integer;
	end;
var
	mas:array[1..20] of string;
	temp: string;
	mass: array[1..20] of base;
	filename: string;
	f: file of base;
	rf: file of base;
	i, j, k, g:integer;
	key: char;
	proverka:boolean;
begin
clrscr;
write('Введите имя исх файла: ');
readln(filename);
assign(f, filename);
write('Введите имя рез файла: ');
readln(filename);
assign(rf, filename);
rewrite(f);
g := 0;
repeat
g := g + 1;
write('Имя:');
readln(mass[g].name);
write('Фамилия:');
readln(mass[g].family);
write('Отчество:');
readln(mass[g].otchestvo);
write('Дата рождения:');
readln(mass[g].DofBr);
write('Город:');
readln(mass[g].city);
write('Улица:');
readln(mass[g].street);
write('Дом:');
readln(mass[g].dom);
write('Квартира:');
readln(mass[g].kvartira);
write('Телефон:');
readln(mass[g].telefon);
write(f, mass[g]);
writeln('Выход ESC');
writeln('Для продолжения нажмите любую клавишу');
key:=readkey;
if key=#27 then break;
until false;
close(f);

reset(f);
i:=0;
while not eof(f) do
begin
i:=i+1;
read(f, mass[i]);
mas[g]:=mass[i].family;
end;


{сортировка ...}


reset(rf);
g:=0;
clrscr;
while not eof(rf) do
begin
g:=g+1;
read(rf, mass[g]);
writeln(g,' элемент списка: ');
writeln('Имя:' ,mass[g].name);
writeln('Фамилия: ',mass[g].family);
writeln('Отчество: ',mass[g].otchestvo);
writeln('Дата рождения: ', mass[g].DofBr);
writeln('Город: ',mass[g].city);
writeln('Улица: ',mass[g].street);
writeln('Дом: ',mass[g].dom);
writeln('Квартира: ',mass[g].kvartira);
writeln('Телефон: ',mass[g].telefon);
writeln('Нажмите любую кнопку!');
readln;

end;
close(f);
end.

Не получается отсортировать, да и мне кажется, что моя программа слишком громоздкая .

[Анна]

volvo, ага, всё поняла ..

Вот мой метод сортировки (пузырьком):

Program Lab11;
uses
	crt;
type
	base = record
		name, family, otchestvo, DofBr, city, street: string[20];
		dom, kvartira, telefon: integer;
	end;
var
	temp: base;
	mass: array[1..20] of base;
	filename: string;
	f: file of base;
	rf: file of base;
	i, j, g:integer;
	key: char;
begin
 clrscr;
 write('Введите имя исх файла: '); readln(filename); assign(f, filename);
 write('Введите имя рез файла: '); readln(filename); assign(rf, filename);
 rewrite(f);
 g := 0;
repeat
 inc(g);

with mass[g] do begin

 write('Имя:');
 readln(name);
 write('Фамилия:');
 readln(family);
 write('Отчество:');
 readln(otchestvo);
 write('Дата рождения:');
 readln(DofBr);
 write('Город:');
 readln(city);
 write('Улица:');
 readln(street);
 write('Дом:');
 readln(dom);
 write('Квартира:');
 readln(kvartira);
 write('Телефон:');
 readln(telefon);
 write(f, mass[g]);
 writeln('Выход ESC');
 writeln('Для продолжения нажмите любую клавишу');
 key:=readkey;
end;
if key=#27 then break;
until false;
 close(f);

for i:=2 to g do
for j:=g downto i do
if ord(mass[j-1].family[1])>ord(mass[j].family[1]) then begin
 temp:=mass[j-1];
 mass[j-1]:=mass[j];
 mass[j]:=temp;
end;

 rewrite(rf);
 i:=0;
repeat
 inc(i);
 write(rf, mass[i]);
until i=(g+1);
 close(rf);


 reset(rf);

 clrscr;
for i:=1 to g do begin
 read(rf,mass[g]);
 writeln(i,' элемент списка: ');

with mass[g] do begin

 writeln('Имя:' ,name);
 writeln('Фамилия: ',family);
 writeln('Отчество: ',otchestvo);
 writeln('Дата рождения: ',DofBr);
 writeln('Город: ',city);
 writeln('Улица: ',street);
 writeln('Дом: ',dom);
 writeln('Квартира: ',kvartira);
 writeln('Телефон: ',telefon);
 readln;
end;

end;
 close(rf);
end.

Можете мне как бы попонятней объяснить вот этот кусок программы (просто смотрела по учебнику, поняла неочень ):

for i:=2 to g do
for j:=g downto i do
if ord(mass[j-1].family[1])>ord(mass[j].family[1]) then begin
 temp:=mass[j-1];
 mass[j-1]:=mass[j];
 mass[j]:=temp;
end;

 rewrite(rf); {создаём вх. файл}
 i:=0; {обнул. счётчик}
repeat {запуск цикла ..}
 inc(i); {увел. на 1 .. , двигаемся ..}
 write(rf, mass[i]); {запись в файл данных}
until i=(g+1); {пока .. как этло сказать правильно?}
 close(rf);{закр. файл}