Записи на TURBO PASCAL Опции

[-DaGGer-]

Помогите, пожалуйста, с задачей :
Дан массив записей, содержащих данные об областях России: название области, численность населения, число школ и ВУЗов. Получить список областей в порядке возрастания числа школ на 1000 человек и в порядке убывания числа ВУЗов, приходящихся на 1000 человек.

[мисс_граффити]

Показывай, что пробовал...
И рассказывай, с чем проблемы.

[Гость]

Показывай, что пробовал...
И рассказывай, с чем проблемы.

Текст программы приблизительно такой :

program oblast;
type
	oblast=record;
	nazv:string [20];
	nas:real;
	vuz:real;
	end;
var
	vozr:real;
	ob:oblast;
	tab:array [1..25] of oblast;
	i:integer;
begin
	for i:=1 to n do
	with tab [i] do begin
	writeln ('Vvedite oblast');
	readln (nazv);
	writeln ('Vvedite kol-vo naseleniya');
	readln (nas);
	{непонятно, как здесь сделать порядок возрастания}
	end;
	writeln ('Vvedite kol-vo vuzov');
	readln (vuz);
	{как сделать здесь убывание на 1000 человек}
	for i:=1 to n do
	if tab [i]. vuz > vozr
	then vozr:=tab [i]. vuz;
	for i:=1 to n do begin
	write (nazv,vuz,nas);
	writeln;
	end;
end.

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