Помогите найти ошибку в программе(Pascal)

[Igor]

Задание:
Вводится текст и программа должна выводить на экран все слова, которые состоят с 5-ти букв.
Вот моя программа:

Program Text;
uses crt;
Var St,st1 : string;
k,n,p : byte;
begin
clrscr;
Writeln('Vvedite text');
Readln(St);
n:=length(St);
k:=0;
St1:=Copy(St,1,6);p:=0;
repeat
If St1[5]<>' 'then
If St1[6]=' ' then writeln('Slovo:',st1);
Delete(St,1,p);
p:= pos(' ',st);
St1:=copy(st,p+1,p+6);
until keypressed;
readln;
end.


Но программа просто выводит на экран все веденные слова и я не могу понять в чем состоит моя ошибка...Помогите, очень прошу.

[Maslov]

Понять, что Вы пытаетесь сделать достаточно сложно, поэтому:
1. Воспользуйтесь тегом code или подсветкой синтаксиса для форматирования исходного текста.
2. Приведите полное условие задачи.
3. Попробуйте словами объяснить как Вы пытаетесь эту задачу решить.
4. Объясните назначение всех переменных
5. Попробуйте вручную пройти по своей программе при условии, что введённая строка равна, например, '123 34567 89'.

[ewert]

Igor в сообщении #279963 писал(а):

If St1[5]<>' 'then
If St1[6]=' ' then writeln('Slovo:',st1);

Вообще ничего непонятно. Почему опрашиваются ровно 5-й и ровно 6-й символы? И при чём тут keypressed?...

Стандартный алгоритм:

Очищаем буферное слово;
Устанавливаем индексную переменную на начало текста;
Пока не конец текста:
    - пока не конец текста и текущий символ пробел,
      сдвигаем индекс в тексте на 1 вправо;
    - пока не конец текста и текущий символ не пробел,
      дозаписываем этот символ  в буферное слово и
      сдвигаем индекс в тексте на 1 вправо;
    - если в буферном слове ровно 5 символов, выводим его;
    - очищаем буферное слово.

[Nikita_b]

Вот человек уже вторую или третью тему в этом разделе создает и каждый раз ему говорят оформить текст кода в тэг [CODE]. Но естественно новая тема, и опять

[Student2007]

If St1[5]<>' 'then
If St1[6]=' ' then writeln('Slovo:',st1);

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