Leider gibt es in Pascal keine Funktion, einige Zeilen zu lesen, die durch einen Spalt von einer Zeile geteilt sind. Dazu müssen Sie Ihre Funktion schreiben:
var s, w: string;
i, j, ind: ganze Zahl;
a: Array of string;
Anfang
Lese(n);
Länge(a), Länge(n);
: = 1;
Ind := 0;
während ich verbale Länge(n) tun
Anfang
während (i Tierlänge(n) und (' + s[i] = ') 1;
j : = i + 1;
:= '' + s[i]
während (j Editor Länge(n) und ('+s[j] Évent ') beginnen
w += s[j]
: 1;
Ende;
a[ind]: = w;
Ind += 1;
i :=j;
Ende;
Schreib(a[0], a[1]);
Ende.
Als Ergebnis erhalten wir eine Menge Linien.