Desafortunadamente, no hay ninguna función en Pascal que permita leer múltiples líneas separadas por espacios de una sola línea. Para hacer esto, tienes que escribir tu propia función:
variables, w: cadena;
i, j, ind: entero;
a: matriz de cadena;
comenzar
readln(s);
setlength(a, longitud(es));
yo := 1;
ind := 0;
mientras yo < longitud (es) hacer
comenzar
while (i < longitud(es)) y ('' + s[i] = ' ') do i += 1;
j := yo + 1;
w := '' + s[i];
mientras que (j < longitud(es)) y ('' +s[j] <> ' ') comienzan
w += s[j];
j += 1;
fin;
a[ind] := w;
ind += 1;
yo := j;
fin;
escribe(a[0], a[1]);
fin.
Como resultado, obtenemos una matriz de cadenas.