Infelizmente, não há nenhuma função em Pascal que permita a leitura de várias linhas separadas por espaços a partir de uma única linha. Para fazer isso, você deve escrever sua própria função:
vars, w: string;
i, j, ind: inteiro;
a: array de string;
começar
leitura(s);
setlength(a, comprimento(s));
i := 1;
ind := 0;
enquanto eu < comprimento(s) fazer
começar
enquanto (i < comprimento(s)) e ('' + s[i] = ' ') do i += 1;
j := i + 1;
w := '' + s[i];
enquanto (j < comprimento(s)) e ('' +s[j] <> ' ') começam
w += s[j];
j += 1;
fim;
a[ind] := w;
ind += 1;
i := j;
fim;
escreva(a[0], a[1]);
fim.
Como resultado, obtemos uma matriz de strings.