Например, вот так для 1 входа

Код:
var
FloatPtr: POINTER TO WORD;
hwAI1: ARRAY[0..48] OF WORD;
F1: REAL;

FloatPtr:= ADR (F1);
FloatPtr^:= hwAI1[5];
FloatPtr:= FloatPtr + 2;
FloatPtr^:= hwAI1[4];