Не могу разобраться как работает программа (Pascal ABC)

[Amid1990]

Никак не могу разобраться как работает программа, точнее не могу понять тему обработка текстовой информации. Напишите пожалуйста подробные комментарии к программе.

Program z5d5;
Uses crt;
var
   st,x: string;
   i: byte;
begin
   readln(st);
   x:=copy(st,1,pos(' ',st));
   for i:=1 to length(st) do
      if st[i-1]=' ' then x:=x+st[i]+'. ';
   writeln(x);
   readln
end.

[DoubleTrouble]

x:=copy(st,1,pos(' ',st)); копирует часть строки до первого пробела

if st[i-1]=' ' then x:=x+st[i]+'. '; если предыдущий символ был пробелом то приписать к x этот символ и точку.
Программа должна ошибку выдавать потому что будут пытаться обратиться к нулевому символу st(а такового нет).

Смысла в программе я не нашёл