Впаскале выдать на экран все номера позиций , на которых встречается буква "к" ))

Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
end.