символы Char Опции

[}0pa]

Используя только информацию о длине строки и переменную (конечно, можно использовать и др. переменные, но не String

Код

var c:char;

написать программу, выводящую на экран все слова, разделенные пробелами, начинающиеся на "М" и заканчивающиеся на "Е"...

Код

var c:char;
  i,n:integer;
begin
writeln('DLINA STROKI: ');readln(n);
for i:=1 to n do
  begin
   read(c);
   if c=' ' then         {не знаю, что делать}
-------------------     {нужно как-то ограничить слова пробелами}
-------------------
  end;
end.

Заранее благодарю!
P.S. Пардон, что пытался тему в Факе разместить, просто искал инфу там и на автопилоте начал там тему создавать

Сообщение отредактировано: }0pa - 5.10.2006 16:14