متأسفانه، هیچ تابعی در پاسکال وجود ندارد که بتواند چندین خط جدا شده از یک خط را بخواند. برای انجام این کار، باید تابع خود را بنویسید:
<پیش>
vars، w: رشته;
i, j, ind: integer;
الف: آرایه رشته؛
شروع
readln(ها)؛
selength(a, length(s));
من := 1;
ind := 0;
در حالی که من < طول (ها) انجام دادن
شروع
در حالی که (i < طول(ها)) و ('' + s[i] = ' ') i += 1;
j := i + 1;
w := '' + s[i];
در حالی که (j < طول(ها)) و ('' +s[j] <> ' ') شروع می شوند
w += s[j];
j += 1;
پایان؛
a[ind] := w;
ind += 1;
i := j;
پایان؛
نوشتن (a[0]، a[1]);
پایان.
در نتیجه، آرایه‌ای از رشته‌ها را دریافت می‌کنیم.