不幸的是，Pascal 中没有允许从一行中读取多个空格分隔行的函数。为此，您必须编写自己的函数：
<前>
变量，w：字符串；
i, j, ind：整数；
a：字符串数组；
开始
阅读（S）;
setlength(a, 长度(s));
我：= 1；
工业：= 0；
而我 <长度做
开始
while (i < length(s)) and ('' + s[i] = ' ') do i += 1;
j := i + 1;
w := '' + s[我];
while (j < length(s)) and ('' +s[j] <> ' ') 开始
w += s[j];
j += 1;
结尾;
a[ind] := w;
指数+=1；
我 := j;
结尾;
写（a[0]，a[1]）；
结尾。
结果，我们得到了一个字符串数组。