Разбить строку на слова

uses crt;
const text='я знаю язык паскаль';
var s:string;
    x:array[0..30] of string;
    p,i,n:integer;
Begin
clrscr;
s:=text;
i:=0;
p:=0;
n:=0;
writeln(s);
while s <> ' ' do
                 begin
                 n:=pos(#32,s);
                 i:=i+1;
                 x[i]:=copy(s,1,n-1);
                 delete(s,1,n);
                 end;
p:=p-1;
for i:=1 to p do
writeln(x[i]);
End.

uses crt;
const text='я знаю язык паскаль';
var s:string;
    p,i,n:integer;
Begin
clrscr;
s:=text+#32;
i:=1;
p:=0;
n:=0;
writeln(s);
while i <> length(s) do
                 begin
                 if (s[i]=s[i+1]) and (s[i]=' ') then
                    begin
                    delete(s,i,1);
                    i:=i-1;
                    end;
                 i:=i+1;
                 end;
writeln(s);
End.

uses crt;
type masstr = array[1..20] of string;
procedure ms(s1: string; var s2: masstr; var count: byte);
var i1, i2: byte;
i, L: byte;
begin
L:= length(s1);
i1:= 1; i2:= 0;
count:= 0;
for i:=1 to L do begin
    if (s1[i] = ' ') and (s1[i+1] <> ' ')
       then i1:= i + 1;
    if (s1[i] <> ' ') and ((s1[i + 1] = ' ') or
       (i = L)) then begin
          i2:= i; inc(count)
    end;
    if i2 <> 0 then begin
       s2[count]:= copy(s1, i1, i2-i1+1);
       i2:= 0;
    end;
end;
end;
var s: string;
s2: masstr;
i, nslov: byte;
begin clrscr;
write('Ведите предложение -> ');
readln(s);
ms(s, s2, nslov);
for i:= 1 to nslov do
writeln(i,'-е слово: ', s2[i]);
readkey
end.

var S,Slovo:string;
 
begin
  write('Введите текст --> '); read(S);
  S:=S + ' ';
  writeln;
  while Pos(' ',S) > 0 do
   begin
     Slovo:=Copy(S,1,Pos(' ',S)-1); {Выделяем слово из строки}
     writeln(Slovo); {Выводим слово}
     Delete(S,1,Length(Slovo)+1); {Удаляем слово из основной строки}
   end;
end.

program z22;
uses crt;
var s:string; 
    i:integer;
begin
writeln('Введите строку и нажмите Enter'); 
readln(s);
 for i:=1 to length(s) do
 begin
 write(s[i]);
 if ord(s[i])=32 then
 begin
 writeln(' ');
 end;
 end;
end.