Сделал так, вполне справляется с задачей:

VAR
VAR_IN:WORD; VAR_OUT:WORD;
ADR_1:POINTER TO WORD;
ADR_2:POINTER TO WORD;
U:INT;
END_VAR

FOR U:=0 TO 20-1 BY 2 DO
ADR_1:=ADR(VAR_IN)+U;
ADR_2:=ADR(VAR_OUT)+U;
ADR_2^:=ADR_1^;
END_FOR