Malheureusement, il n'y a pas de fonction en Pascal qui permettrait de lire plusieurs lignes séparées par des espaces à partir d'une seule ligne. Pour ce faire, vous devez écrire votre propre fonction :
vars, w : chaîne ;
i, j, ind : entier ;
a : tableau de chaîne ;
commencer
lecture(s) ;
setlength(a, longueur(s));
je := 1;
ind := 0;
pendant que je < longueur(s) faire
commencer
tandis que (i < longueur(s)) et ('' + s[i] = ' ') do i += 1;
j := je + 1;
w := '' + s[i] ;
tandis que (j < longueur(s)) et ('' +s[j] <> ' ') commencent
w += s[j] ;
j += 1;
fin;
a[ind] := w;
ind += 1 ;
je := j;
fin;
écrire(a[0], a[1]);
fin.
En conséquence, nous obtenons un tableau de chaînes.