Требуется написать прогу на Pascal(таблица)

[Cyanide]

Задание: Имеются сведения об именах больших планет солнечной системы,их диаметры,средние расстояния до солнца и количество спутников.выведите списки планет,орбиты которых лежат внутри орбиты заданной,и планет с диаметрами,большими заданной.
Решите пожалуйста способом с подпрограммой и способом с модулем...

[VadEr]

Решение способом подпрограммы (значения в const не совсем точные):

Program Planets;
const
  P: array[1..9] of string[8] = ('Меркурий','Венера','Земля','Марс','Юпитер','Сатурн','Уран','Нептун','Плутон'); {Планеты}
  D: array[1..9] of real = (4880, 12104, 12760, 6794, 142984, 60300, 51118, 49528, 2390); {Диаметры, км}
  Ls: array[1..9] of real = (0.387, 0.723, 1, 1.524, 5.2, 9.584, 19.19, 30.02, 39.23); {Среднее расстояние от Солнца, а.е.}
  Ns: array[1..9] of byte = (0, 0, 1, 2, 28, 7, 21, 8, 1); {Кол-во спутников}
var
  Li, Di: real; {Заднные орбита и диаметр}

  procedure ListOfOrbit(Lx :real);
  var i: integer;
  begin
    writeln('Список планет по заданной орбите:');
    For i:=1 to 9 do
        if Lx <= Ls[i] then
           writeln(i,') ',P[i],';');
    writeln;
  end;

  procedure ListOfDiametr(Dx :real);
  var i: integer;
  begin
    writeln('Список планет по заданному диаметру:');
    For i:=1 to 9 do
        if Dx > D[i] then
           writeln(i,') ',P[i],';');
    writeln;
  end;

begin
  Writeln('Задайте орбиту, а через "ПРОБЕЛ", - диаметр и нажмите <ENTER>');
  Readln(Li,Di);
  writeln;
  ListOfOrbit(Li);
  ListOfDiametr(Di);
  Readln;
end.

[Cyanide]

Спасибо Вам огромное! Отдельно благодарю за пояснения в скобках))
Кто-нибудь покажите пожалуйста способ решения с модулем...