работа со строками

[Pepsik]

задание такое : Вывести слова данной строки в обратном порядке по одному в строке экрана.

program l6;

function get_word(s: string; var i: byte): string;
var l: byte;
  w: string;
begin
  l := Length(s);
  while (i <= l) and (s[i] <= ' ') do
    inc(i);
  w := ' ';
  while (i <= l) and (s[i] > ' ') do
  begin
    w := w + s[i];
    inc(i);
  end;
  get_word := w;
end;

var i, l: byte;
  b, s: string;
begin
  writeln('enter');
  readln(s);
  l := Length(s);
  b := ' ';
  for i := 1 to l do
    b := get_word(b, i) + '' + b;
  while i < l do
    writeln(b);
  readln
end.

где-то в конце есть ошибка и задание не выполняется. помогите исправить.
должно выводить например так:
as 4fd s ->
s
4fd
as



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Что-то не понял ваш код.

Слова могут быть разделены только одним пробелом?
Если да, то я бы так делал:

readln(str);
bufstr:='';
for i:=length(str) downto 1 do
   if (str[i]=' ') or (i=1) then
   begin
     for j:=length(bufstr) downto 1 do
        write(bufstr[j]);
     bufstr:='';
     writeln;
   end
   else
      bufstr:=bufstr+str[i];

Если хотите, чтобы можно было разделять слова не только одним пробелом, то можно использовать "флаг" типа boolean, список разделителей (set of ...) и т.д.

[Johnson]

А в голом паскале не существует функция Pos(); ?
На дельфяке я бы сделал так:

A:='sdfg sdf sdfsdfsd  sdf     sdf';
while Pos(' ',A)>0 do begin
x:=Copy(A,1,Pos(' ',A)-1));
if lenght(x)>0 then Memo.Lines.Add();
Delete(A,1,Pos(' ',A));
end;

Писал с коленки, наверное естьсинтаксис неправильный. Да и доработать можно существенно.