Нужно решить задачу на Pascal (способом с модулем)

[Cyanide]

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

[VadEr]

1) Пишешь код для модуля:

Unit MyUnit;

interface

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);
  procedure ListOfDiametr(Dx :real);

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

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

end.

2) Сохраняешь его под именем MyUnit.pas;

3) Пишешь код основной программы:

Program Planets;
uses MyUnit; {указатель на используемый модуль}
Var
  Li, Di: real; {Заданные орбита и диаметр}
begin
  Writeln('Задайте орбиту, а через "ПРОБЕЛ", - диаметр и нажмите <ENTER>');
  Readln(Li,Di);
  writeln;
  ListOfOrbit(Li);   {Вызов из модуля подпрограммы расчёта по орбите}
  ListOfDiametr(Di); {Вызов из модуля подпрограммы расчёта по диаметру}
  Readln;
end.

[Cyanide]

Аааа...поняла) Благодарю Вас еще раз)