Дано слово Криминалистика нужно вырезать из него 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.