Thật không may, không có chức năng nào trong Pascal cho phép đọc nhiều dòng được phân tách bằng dấu cách từ một dòng. Để làm điều này, bạn phải viết chức năng của riêng mình:
vars, w: chuỗi;
i, j, ind: số nguyên;
a: mảng chuỗi;
bắt đầu
readln(s);
setlength(a, length(s));
tôi := 1;
ind := 0;
trong khi tôi < chiều dài làm
bắt đầu
while (i < length(s)) and ('' + s[i] = ' ') do i += 1;
j := tôi + 1;
w := '' + s[i];
while (j < length(s)) và ('' +s[j] <> ' ') bắt đầu
w += s[j];
j += 1;
kết thúc;
a[ind] := w;
ind += 1;
tôi := j;
kết thúc;
ghi(a[0], a[1]);
kết thúc.
Kết quả là chúng ta có một mảng các chuỗi.