объясните содержание программы

[lexa1493]

есть код программы надо разобрать каждое слово что оно делает я в делфи вообще не чего не понимаю а надо сдавать. пожалуйста

вот содержание DPR файла

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, windows,
Unit1 in 'Unit1.pas';
var system:tsystem;
i:integer;
arr:arrstring;
str:string;
r:real;
begin
system:=tsystem.create;
system.setsystem;
writeln ('Count of all objects in system=',length(system.objs)); //amount of all objects

for I := 0 to high(system.objs) do
if system.objs[i].IsStar then //points 1
system.objs[i].writeobj; //and 2

writeln;
writeln('Weight of each object:');
for i := 0 to high(system.objs) do
writeln(system.objs[i].name,'=',system.objs[i].GetMass:1:8);

writeln('3)');
system.findempty(arr);
for i := 0 to high(arr) do
writeln('Empty',i,'=',arr[i]); //point 3

writeln('4)');
str:=system.mostplanet;
writeln('Mostplanet=',str); //point 4

writeln('5)');
str:=system.mostclose; //point 5
writeln('Mostclose=',str);

writeln('6)');
str:=system.closebig; //point 6
writeln('Closebig=',str);

writeln('7)');
str:=system.findmostweightstar; //point 7
writeln('Mostweightstar=',str);

writeln('8)');
r:=system.midweight;
writeln('Midweight=',r:1:8); //point 8

writeln ('9)');
writeln('Fullweight=',system.fullwe ight:1:8); //point 9

system.Free;
readln;
end.

В архиве находиться полность программа и фаил Unit1 тоже надо разобрать