[angvelem]

Ну не понимаю я стремления передавать в процедуры/функции указатель на глобальную переменную.

Код:

  function lap(locarr : arr) : Single;