Составьте обучающую модель-схему-связи слов в предложений

Var s:string;
    z,y,x,v:char;
begin
read(s);
z:=s[1];
y:=s[2];
x:=s[3];
v:=s[4];
write(z,y,x,v,'ток');
end.