Co se tyka vypoctu vzdalenosti bodu, to je vec geometrie, s tim asi problemy nemas.
Body zrejme nadefinujes jako:

Body: array[0..9] of TPoint;

Co se tyka logaritmu, proste projdes ve dvou vnorenych cyklech vsechny body a zjistis vzdalenosti. Pri prochazeni si zapamatujes nejmensi a nejvetsi vzdalenosti a tomu odpovidajici body.

Pozadavek na promenne znamena, ze bys mel pouzivat pouze parametry, ktere do funkce predas + promenne, ktere si nadeklarujes uvnitr funkce, nemel bys pozuivat zadne globalni promenne.
Znamena to napr. u funkce pro vypocet vzdalenosti:

function VypocitejVzdalenost(const Bod1, Bod2: TPoint): Double;

funkci budes volat takto:

Vzdalenost2Bodu := VypocitejVzdalenost(Body[i], Body[j]);

a ne funkci, kde predas jen odkaz na index pole:

function VypocitejVzdalenost(const i, j: Integer): Double;

a funkce si bude sahat sama do pole bodu