перевод программы с паскаля на си(строки)

[tutis]

Здравствуйте!Помогите пожалуйста перевести программу с Паскаля на Си.
Условие:дана строка.Указать те слова,которые содержат хотя бы одну букву k.
Вот код программы на Паскале.

Код: Выделить всё

uses crt;
var s,s1:string;
i,j,n:byte;
begin
clrscr;
writeln('vvedite stroku:');
readln(s);
s:=s+' ';
writeln('Slova s k');
n:=0;
while pos(' ',s)>0 do
begin
s1:=copy(s,1,pos(' ',s));
if(pos('k',s1)>0) then
begin
n:=1;
write(s1,' ');
end;
delete(s,1,pos(' ',s));
end;
if n=0 then write('takih slov net');
readln
end.

Пожалуйста,очень надо.

[StudyMen]

Профессиональная и оперативная помощь студентам в решении задач по программированию.
Реализатор: ведущий разработчик сайта www.studymen.ru. Более 5000 выполненных работ по программированию для студентов всех ВУЗов России более чем на 25 различных языках программирования.
Стоимость: от 30 рублей за задачу.
Оплата: оплата производится после выполнения задачи (то есть без предоплаты).
Способ оплаты: электронный платежные системы webMoney и Яндекс-деньги.
Контакты для связи:
Email: administrator@studymen.ru
Skype: studymen
ICQ: 639151387

[samec2011]

Профессиональная и оперативная помощь студентам в решении задач по программированию.
Реализатор: ведущий разработчик сайта www.studymen.ru. Более 5000 выполненных работ по программированию для студентов всех ВУЗов России более чем на 25 различных языках программирования.
Стоимость: от 30 рублей за задачу.
Оплата: оплата производится после выполнения задачи (то есть без предоплаты).
Способ оплаты: электронный платежные системы webMoney и Яндекс-деньги.
Контакты для связи:
Email: administrator@studymen.ru
Skype: studymen
ICQ: 639151387

многознайка какой... более чем 25 япов...
извините за оффтоп. вырвалось.

по теме: Стучите в асю 111115656, обсудим.

[fft]

могу сделать val20063@mail.ru