az pak obicham da go prawq taka:

sz:=length(str);
s.write(sz,sizeof(sz));
s.write(str[1],sz);

a posle si go chetesh:


s.read(sz,sizeof(sz));
setlength(str,sz);
fillchar (str,sz,0);//towa tuka e shtoto wednaj mi prawishe AV pri podoben sluchaj
s.read(s[1],sz);