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

Question

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.

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

Daimond · Accepted Answer

Потому что функция Copy() возвращает строку, которую вы пытаетесь присвоить символу. 
 
И к чему такие извращения? Что мешает просто присвоить 
 
if k<=4 then s2[count]:=s1[ i ]; 
 
> Все, нашел ошибку!!! !
 
Поздравляю!