Nece da kompajlira

Zasto ovo nece da kompajlira?

program Cleo;
var
const slovo : array[1..8] of string = ('c-', 'c=', 'd-', 'dz=', 'lj', 'nj', 's=', 'z=');
s : string;
i, j, rez : longint;
begin
readln(s);
i := 1;
rez := 0;
while i <= length(s) do begin
for j:=1 to 8 do
if copy ((s, i, length(slovo[j]))=slovo[j]) then begin
i := i+length(slovo[j])-1;
break;
end;
i:=i+1;
rez:=rez+1;
end;
writeln(rez);
end.

zato sto var mora da ti ide posle const, a i ova if naredba ima neke nelogicne zagrade.. Kolko sam ukapirao, ovako bi trebalo da bude:

code removed 

Hvala,proslo je!