как грамотно объяснить код (делфи 7)

[MegaMozg28]

Здравствуйте

Вот как грамотно объяснить этот процесс? :

procedure Tform1.Calculate;
var
sum:integer;
begin
sum:=0;
if f=d then sum:=sum+strtoint(cena.cells[1,0]);

if ((f=1) and (d=2))or((d=1) and (f=2))
then sum:=sum+strtoint(cena.cells[1,1]);

if ((f=1) and (d=3))or((d=1) and (f=3))
then sum:=sum+strtoint(cena.cells[1,2]);

if ((f=1) and (d=4))or((d=1) and (f=4))
then sum:=sum+strtoint(cena.cells[1,3]);

if ((f=1) and (d=5))or((d=1) and (f=5))
then sum:=sum+strtoint(cena.cells[1,4]);

if ((f=2) and (d=3))or((d=2) and (f=3))
then sum:=sum+strtoint(cena.cells[1,5]);
if ((f=2) and (d=4))or((d=2) and (f=4))
then sum:=sum+strtoint(cena.cells[1,6]);

if ((f=2) and (d=5))or((d=2) and (f=5))
then sum:=sum+strtoint(cena.cells[1,7]);

if ((f=3) and (d=4))or((d=3) and (f=4))
then sum:=sum+strtoint(cena.cells[1,8]);

if ((f=3) and (d=5))or((d=3) and (f=5))
then sum:=sum+strtoint(cena.cells[1,9]);

if ((f=4) and (d=5))or((d=4) and (f=5))
then sum:=sum+strtoint(cena.cells[1,10]);

if gazel=1 then sum:=sum+strtoint(cena.cells[1,11]);
if pazek=1 then sum:=sum+strtoint(cena.cells[1,12]);
label4.Visible:=true;
Label4.caption:='Стоимость поездки составит: '+inttostr(sum)+' рублей';
button3.Visible:=true;
end;

и как он называется?