Снежинкам / Для ТМ-81 Что надо изменить в программе для работы со списками

Было и не работало

(*

function PixCompare(Iteml, Item2: Pointer): Integer;

var Pixl, Pix2: TMyPixel;

begin

Pixl := Iteml;

Pix2 := Item2;

Result:=Pixl.FX—Pix2.FX;

 end;

*)

Стало и будет работать

function PixCompare(Iteml, Item2: Pointer): Integer;

var Pixl, Pix2: TMyPixel;

begin

Pixl := TMyPixel(Iteml);

Pix2 := TMyPixel(Item2);

Result:=Pixl.FX - Pix2.FX;

end;

Тому, кто сможет внятно объяснить что поменялось и почему — не будет вопросов при сдаче этой работы.