Дано слово криминалистика нужно вырезать из него 3 слова в программе pascal abc

Var    s: string;

begin   
s := 'Криминалистика';   
for var i:=1 to 8 do write(s[i]);   
writeln();   
for var i:=4 to 7 do write(s[i]);   
writeln();   
for var i:=8 to 11 do write(s[i]);
end.