Строка (String)

[Legky]

Дано строку символов, который состоит из отдельных слов, разделенных интервалом. Вывести на печать все слова строки, содержащие четное число букв.

Сам код про-ги:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const n=' ';
  var s:string;
  p,i,k,ns,ds:string;


begin
writeln('Input string');
readln(s);
writeln('slova s chetnim kol-vom bykv');
k:=length(s);
ns:=i;
i:=1;
while i<>k do
while S[i]<>n do
i:=i+1;
ds:=i-ns;
p:=length(ds);
if p mod 2=0 then
writeln(copy(s,ns,ds));
i:=i+1;
readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

где р-переменная для обозначения длины слова, k-переменная для обозначения длины строчки, ns - начало слова, ds-длина слова,i-индекс, n - интервал(в данном случае пробел).
программу обязательно надо сделать через while, через for нельзя(требование учительницы).
Проблема, скорее всего, в этом отрывке:

k:=length(s);
ns:=i;
i:=1;
while i<>k do
while S[i]<>n do
i:=i+1;
ds:=i-ns;
p:=length(ds);

Возможно, что не понадобится константа n.

Очень надо ваша помощь.

[Stilet]

отдельных слов, разделенных интервалом.

Это что за интервал? Что имеется ввиду?
Если нужно строку на слова раскатать то есть средство попроще:http://www.programmersforum.ru/showt...369#post398369

[Legky]

Сообщение от Stilet

Это что за интервал? Что имеется ввиду?
Если нужно строку на слова раскатать то есть средство попроще:http://www.programmersforum.ru/showt...369#post398369

n - интервал(в данном случае пробел); это есть в тексте