Дано предложение. Определить порядковый номер первой встречной буквы 'к'.Если такой буквы нет, сообщить об этом.

Var
Nk, i : integer;
Sent : string[100];
Begin
readln(Sent);
Nk:=0;
for i:= 1 to 100 do
if Sent = 'к' then
begin Nk:=i; break; end;
if Nk=0 then writeln('Буква к отсутствует') else writeln(первая буква к имеет номер ', Nk);
End.