Строки...ПаскальАВС

[tanya61043]

Дана строка s, содержащая менее чем 256 символов и представляющая собой набор слов, разделенных одним или несколькими пробелами. Найти любое слово в исходной последовательности символов, начинающееся с комбинации букв но. Использовать стандартные процедуры и функции в действиях над строками.


помогите написать программу..буду благодарна очень

[Poma][a]

const
	substr = 'но';
	

function Find (const s : string) : string;
var
	wrd : string;
	i : Integer;

begin
	wrd := '';

        for i := 1 to Length(s) do
		if s[i] = ' ' then begin
			if (wrd[1] = substr[1]) and (wrd[2] = substr[2]) then begin
				Find := wrd;
				Exit
			end;
			wrd := ''
		end
		else
			wrd := wrd + s[i]

end;

var
	s : string;

begin
	ReadLn (s);
	
	WriteLn (Find (s+' '))
end.

Ну вот я Вам написал.. и что? " А Таня, по-прежнему, ...!"

[Stilet]

" А Таня, по-прежнему, ...!"

Давай только без пошлостей...
Не к месту эта фраза, учитывая ее окончание.