Дана строка символов, среди которых есть двоеточие (

я уже составила прогаммку, но ищу ошибку, помогите мне пожалуйста!!!
var s:string;
i,k:integer;
begin
s:='123:56778';(вводим любое выражение , которое сордержит

for i:=1 to length(s) do begin
k:=0; if (s[i]:=':') then (k:=i-1);
writeln('k=',k);readln;
end;end.