value:=port[$379]; { Прочитать из порта } 
port[$379]:=value; { Записать в порт }