не могу разобраться с текстовыми переменными в паскале, вот условие задачи(делал её на фортране, а на паскале не получается) Опции

[maklir]

вводится непустая(проверить на пустоту вод одних пробелов или цифр) последовательность символов(не более70), отдельные слова разделены пробелами, вывести в лексикографическом порядке слова, начинающиеся с приставки "раз".

[klem4]

Если лова разделены исключительно одним пробелом.

вот достаточно коротки вариант:

var
  s: string[70];
  i, p: Byte;
begin
  write('s = '); readln(s);

  for i := 1 to length(s) - 2 do
   if ((i = 1) or (s[i - 1] = ' ')) and (Copy(s, i, 3) = 'раз') then begin
     p := Pos(' ', Copy(s, i, 255));


     if p > 0 then writeln(Copy(s, i, p - 1))
      else writeln(Copy(s, i, 255));

     {
       альтернативный вариант предыдущих двух строк
     p := byte(p = 0) * 255 + p;
     writeln(Copy(s, i, p - 1))
     }
   end;
end.