IF stcom1=1 THEN istatecom1:=2;
ELSE istatecom1:=13;
mem.MemFill(array1[0],22,0);
END_IF
соответственно array1 - array[0..22] of word
IF stcom1=1 THEN istatecom1:=2;
ELSE istatecom1:=13;
mem.MemFill(array1[0],22,0);
END_IF
соответственно array1 - array[0..22] of word