Строка (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.

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

[iBuTTHead]

Так... Ну я предлогаю такой вариант.

while k<length[stroka] do
               begin
                 slovo:='';
                 while (stroka[k]<>' ')and(k<length(stroka)) do
                         begin
                            slovo:=slovo+stroka[k];
                            k:=k+1;     
                         end;
                 if length(slovo) mod 2 = 0 then
                            Writteln(slovo);
                 k:=k+1
                end;

На мой взгляд вы используете слишком много лишних переменных.