Работа со строками, задача на работу со строками/символами Опции

[NightPaladin]

Вот - очень интересует решение даной задачи.
Буквы назовем “соседями”, если они входят в какую-либо пятерку подряд идущих букв русского алфавита, например ”КЛМНО”. Назовем слово «дружественным», если слово составлено из “соседей” (буквы могут входить в слово много раз, некоторые могут отсутствовать). Например, ГАВ, БАБА - «дружественные».
Дана строка, в которой слова разделены пробелами, вывести все дружественные слова.
Пример:
Входные данные: Выходные данные:
РАЗ ДВА ТРИ ЧЕТЫРЕ ПЯТЬ ДВА
АБВГД ГДЕ ЕЖ АБВГД ГДЕ ЕЖ

[NightPaladin]

volvo или просто добрые люди посмотрите чё не так в коде а то глючит

Код

program asd;
Uses
CRT;
type
TWords = array[1..100] of String;
Function GetWords(s: String; Var mas: TWords): Byte;
Var i, j, p: Byte;
Begin

  Repeat
    p := Pos('  ', s);
    If p > 0 Then Delete(s, p, 1)
  Until p = 0;

  If s[1] = ' ' Then Delete(s, 1, 1);
  If s[Length(s)] = ' ' Then
    Delete(s, Length(s), 1);

  i := 0;
  Repeat
    p := Pos(' ', s); Inc(i);
    If p > 0 Then
      Begin
        mas[i] := Copy(s, 1, Pred(p)); Delete(s, 1, p) ;
      End
    Else mas[i] := s
  Until p = 0;
  GetWords := i
End;

Var

i, count: Word;
words: TWords;
a,sr : String;
f,g: byte;
q: String;
Const
s: String = ' That is   all folks ';
Begin
ClrScr;
Count := GetWords(s, words);
For i := 1 To count Do
  begin
   a:= Copy(words[i],1,1);
   sr:= Copy(words[i],Length(words[i]),1);
   f:= Chr(a);
   g:= Chr(sr);
   f:=f-g;
   If f <= 5 then   q:=q+' '+words[i];
  end;
  ReadKey;
End.