строка (занести в массивы - буквы и слова)

[Lodyr]

Понимаю, а можете сказать, что не так в моей программе указанной выше?

[psycho-coder]

Если на вскидку, то несколько циклов While, мне не нравятся. С ними можно легко запутаться.
Попробуйте трассировать программу (клавиша F7).

[Lodyr]

вот что я думаю сделать по выводу на экран этих слов
begun:=1;
repeat
i:=begun+1;
r:=mas 2[i]-mas 2[i-1];
while (i<=10) and (r=mas[i+1]-mas[i]) do
inc(i);
if (r<>mas[i+1]-mas[i]) then
r:=0;
r:=mas[i+1]-mas[i];
writeln(mas1[i] and mas1[i-1]);
until (i>=10);

просто не знаю, как мне цикл написать...
то есть чтобы выписал мне эти слова, не пойму как это сделать...

[psycho-coder]

Вы хотите просто вывести эти слова из массива на экран?

[Lodyr]

да
чтобы он на экран выписал те слова, которые образуют арифметчиескую прогрессию
например:
я пошел велосипед (1 5 9)
пошел кто ф (5 3 1)

[Lodyr]

по порядку нужно, без перестановок и сведению к виду арифметической прогрессии = то есть что дали то и дали))))

[Lodyr]

тут момент такой еще получился, если во фразе будет расположены на близком расстоянии чужой символ от буквы = то в массив слов заносится езе и этот чужой символ (запятая, точка)

непонятно, почему у нас элементы массива с нуля начинается?

[psycho-coder]

Вывод написал, сейчас сделаю проверку на знаки препинания.

[psycho-coder]

Вот полный код

Program q;
Uses Crt;

var
  mas1: array [0..10] of String;
  mas2: array [0..10] of Byte;
  s, tmp: String;
  i, j: Integer;
  res, len: Integer;
  WordEnum: Byte;

begin
  ClrScr;
  Readln(s);

  tmp := '';
  WordEnum := 0;

  len := Length(s);

  for i := 0 to len do
    case s[i] of
      '0'..'9': Continue;
      'A'..'Z': Continue;
      'a'..'z': Continue;
      'Ђ'..'Ї': Continue; { от А(бол.) до п(мал.) }
      'а'..'п': Continue; { от р(мал.) до я(мал.) }
      else s[i] := #32;
    end;

  for i := 1 to len do
  begin
    if (s[i] = #32) and (s[i+1] = #32) then Continue;

    if (s[i] = #32) and (s[i+1] <> #32) then
    begin
      mas1[WordEnum] := tmp + #32;
      Inc(WordEnum);
      tmp := '';
      Continue;
    end;
    tmp := tmp + s[i];
    mas1[WordEnum] := tmp ;
    mas2[WordEnum] := Length(tmp);
  end;

  j := 0;

  for i := 1 to WordEnum do
  begin
    res := Abs(mas2[i] - mas2[i-1]);
    len := Abs(mas2[i] - mas2[i+1]);

    if res = len then
    begin
      for j := j to i + 1 do
        Writeln(mas1[j]);
      Inc(j);
    end;
    {WriteLn(mas2[i]); }
  end;

  ReadKey;
end.

[Lodyr]

вот что выдает \ программа успешно завершена, нажмите любую клавишу = и все, слов не видно в строке вывода...

    res := Abs(mas2[i] - mas2[i-1]);
    len := Abs(mas2[i] - mas2[i+1]);

я как понимаю вы берете по модулю? но если разность будет такая:
велосипед лежит ё = разность 2 и 1 будет (-4), и разность 3 и 2 будет (-4), по сути не меняют ситуацию.

еще вопрос, почему у нас элементы в массивах с 0 начинаются?
как то можно заменить чтобы от 1 до 10 или до 100

ClrScr;

== очистка экрана?

 звездочка 32

==как можно ее заменить? на пробел, как Вы писали ранее?

  i, j: Integer;
  res, len: Integer;

==что означает j и rez(получение разности 2 и 1 элемента)?