S:='Скоро зима';
K:=pos(' ',s);
T:=copy(s,1,k-1);
N:=length(s);
P:=copy(s,k+1,n-k);
Delete(s,1,k);
K = 6
T = Скоро
N = 10
P = зима
S = зима
S:='Скоро зима';
K:=pos(' ',s);
T:=copy(s,1,k-1);
N:=length(s);
P:=copy(s,k+1,n-k);
Delete(s,1,k);
K = 6
T = Скоро
N = 10
P = зима
S = зима