Ìîäóëü: Pascal. Ñòðîêè. Îñíîâû

var s, w: string;
i, j, ind: integer;
a: array of string;

begin
    readln(s);
    setlength(a, length(s));
    i := 1;
    ind := 0;
    while i < length(s) do
    begin
        while (i < length(s)) and ('' + s[i] = ' ') do i += 1;
        j := i + 1;
        w := '' + s[i];
        while (j < length(s)) and ('' +s[j] <> ' ') do begin
            w += s[j];
            j += 1;
        end;
        a[ind] := w;
        ind += 1;
        i := j;
    end;
    write(a[0], a[1]);
end.

 ðåçóëüòàòå ìû ïîëó÷àåì ìàññèâ ñòðîê.