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

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

я бы добавила еще два столбца в запись, в которые бы занесла отношение вузов и школ к кол-ву человек, а потом отсортировала по ним

А как это? Хотя бы приблизительно.

Приблизительно - вот так:
Записи

(задания не очень сильно различаются, правда?)

Мне кажется, что различаются.

Ну, естественно... У тебя - про области России, там - про республики бывшего СССР. Там - отсортировать по отношению население/площадь, здесь - по отношению число школ (или институтов)/население... Ужасные различия. Просто катастрофические...

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

Не надо так на новичков набрасываться! Нам надо опираться на вас, опытных программистов! А объяснить можно и по нормальному...

Всё работает! Большое спасибо за помощь!