Несовпадение типов в Турбо паскале

program lilid;
uses crt;
var s1,s2:string;
a1,a2,i,k,count:integer;
BEGIN
count:=1;
k:=1;
readln(s1);
for i:=1 to length(s1) do
begin
if k<=4 then s2[count]:=copy(s1,i,1); - в этом месте пишет ошыбку. Почему?
if k=4 then
begin
s2:=s2+'.';
count:=count+1;
k:=0;
end;
if s1<>'' then k:=k+1
end;
writeln(s2);
readln;
END.

Все, нашел ошибку!!!!