Malangnya, tiada fungsi dalam Pascal yang membenarkan membaca berbilang baris yang dipisahkan ruang daripada satu baris. Untuk melakukan ini, anda perlu menulis fungsi anda sendiri:
vars, w: rentetan;
i, j, ind: integer;
a: tatasusunan rentetan;
bermula
readln(s);
setlength(a, length(s));
i := 1;
ind := 0;
semasa saya < panjang (s) lakukan
bermula
manakala (i < panjang(s)) dan ('' + s[i] = ' ') lakukan i += 1;
j := i + 1;
w := '' + s[i];
manakala (j < panjang(s)) dan ('' +s[j] <> ' ') bermula
w += s[j];
j += 1;
akhir;
a[ind] := w;
ind += 1;
i := j;
akhir;
tulis(a[0], a[1]);
tamat.
Akibatnya, kami mendapat tatasusunan rentetan.