Програмка по стрингам

[Hrustik]

Сообщение от Poma][a

Ни разу не соглашусь! В честь чего?
q - первая буква слова.
w - последняя буква слова.

UPD 21 : 47

Да.. Прошу простить.. Пробел-то я и не заметил..

UPD 21 : 49
Как вариант :

var
	s, wrd : string;
	i : Integer;
	
begin
	ReadLn (s);
	s := s + ' ';
	
	wrd := '';
	for i := 1 to Length(s) do
		if s[i] <> ' ' then
			wrd := s[i] + wrd
		else begin
			if (wrd[Length(wrd)] = 'a') and (wrd[1] = 'z') then
				WriteLn (wrd);
			wrd := ''
		end
end.

Очень спасибо тебе за помощь , и всем кто помагал