ПЛК + МСД200 Slave

Доброго времени суток, на сайте скачал пример пересылки 4 переменных из ПЛК(мастер) в МСД-200(слейв), подскажите как изменить код чтобы можно было пересылать 5 и более переменным ( в итоге мне нужно сделать около 10)
Прога в ПЛК:

PROGRAM PLC_PRG (*пример программы для записи 6 переменных *)
VAR
var_array_var1,var_array_var2,var_array_var3,var_a rray_var4 : POINTER TO ARRAY[0..3] OF BYTE;
P_string: POINTER TO ARRAY [0..15] OF BYTE;
real1,real2,real3,real4: REAL; (*значения, которые необходимо писать в МСД*)
(*В МСД выбирается тип данных Float32-Big_endian, адреса 0,2,4,6*)
END_VAR


var_array_var1 := ADR( real1 );
var_array_var2 := ADR( real2 );
var_array_var3 := ADR( real3 );
var_array_var4 := ADR( real4 );
p_string:=ADR(string1);

p_string^[0]:=var_array_var1^[2];
p_string^[1]:=var_array_var1^[3] ;
p_string^[2]:=var_array_var1^[0];
p_string^[3]:=var_array_var1^[1];

p_string^[4]:=var_array_var2^[2];
p_string^[5]:=var_array_var2^[3] ;
p_string^[6]:=var_array_var2^[0];
p_string^[7]:=var_array_var2^[1];

p_string^[8]:=var_array_var3^[2];
p_string^[9]:=var_array_var3^[3] ;
p_string^[10]:=var_array_var3^[0];
p_string^[11]:=var_array_var3^[1];

p_string^[12]:=var_array_var4^[2];
p_string^[13]:=var_array_var4^[3] ;
p_string^[14]:=var_array_var4^[0];
p_string^[15]:=var_array_var4^[1];