В чём проблема подскажите плиз.Program ProstoTak;Vars,s1,s2 :

В чём неувязка подскажите плиз.
Program ProstoTak;
Var
s,s1,s2 : string;
Begin
s:='метоксихлордиэтиламинометилбутиламиноакридин';
writeln(s); Ваше слово компания 'метоксихлордиэтиламинометилбутиламиноакридин'
s1 := Copy (s,8,4);
writeln(s1); Выводится текст 's1'
s2 := Copy (s,1,3) + s(18)+s(17);
writeln(s2); Выводится текст 's2'
end.