Помогите пожалуйста! Срочно нужно! Весь интернет прошарила.

Несколько раз читал. Мой русский мозг ломается о "расположенных в порядке не возрастания". Т. е. в порядке уменьшения? Ок.
program gjdhflkghsdlkjgh;
type tPlan: record
name:string[50];
sputniki:integer;
rasst, period, radius, massa,:real;
printed:boolean;
end;
var
p:array[0..10] of tPlan;
pp: tPlan;
prn: text;
i, maxsp: integer;

function next(var max:integer):integer;
var i:integer;
begin
i:=0; while p[i].printed or (p[i].sputniki>max) do inc(i);
p[i].printed:=true;
max:=p[i].sputniki;
next:=i;
end;

begin
// Будем считать, что кто-то волшебным образом заполнил все 11 планет в массиве р
assign(prn,'prn'); reset(prn); // Открываем принтер для вывода на печать
for i:=0 to 11 do p[i].printed:=false;
// К сожалению я не вкурсе, как обсотит дело с количеством спутников, поэтому буду считать, что их не может быть больше 1000
maxsp:=1000;
for i:=0 to 11 do begin
pp:=p[next(maxsp)];
writeln(prn, pp.name); // Печатаем только название. Не помню, как завершать страницу, поэтому листик вытаскивать вам самостоятельно.
end;
closefile(prn); // Вывели на печать, пусть принтер отдохнет
end.
На ошибки не проверял. Лень

ну конечно, сейчас все сделаем, все напишем и за вас сдадим

Цитирую: «на основе таблицы, включающей» …
Значит где-то есть эта самая таблица.
Вот её нужно забить как константы, а потом только оперировать данными!
Я так считаю.

формулировка из разряда:
"Дано задание, буду рад и тому, что будет сделано все задание"

Много текста

Вам нужен код или сама программа?