может кто то знает где у меня ошибка ....

Uses Crt;
Type Slovo = String[5]; {окреме слово}
         Rech = String; {дане речення}
         MasSliv = Array[1..20] of Slovo; { створюваний масив слів}
Var S:Slovo; R:Rech; M: MasSliv;
 
{Функція розбиття речення на слова}
Function GetWord(S:Rech; var N:Byte):Slovo;
Var Tmp: String; 
Begin
    Tmp:=''; 
    while (N <= Length(S)) and (S[N] = ' ') do
      N:=N+1; {ігнорування пропусків}
    while (N <= Length(S)) and (S[N] <> ' ') do
      begin
          Tmp:=Tmp+S[N]; {створення окремого слова – елемента масиву слів}
          N:=N+1
      end;
     GetWord:=Tmp
End;
 
Var i:Byte; {лічильник символів речення}
      N:Byte;{лічильник слів}
      k:Byte;
Begin
 {створення масиву слів}
    Readln (R); {введення речення}
    i:=1; N:=0;
    while i <= Length(R) do
     begin
         N:=N+1;
         M[N]:=GetWord(R,i) 
     end;
{друкування слів з масиву у зворотньому порядку}
    for k:=N downto 1 do 
     WriteLn(M[k])
End.