दुर्भाग्य से, पास्कल में कोई फ़ंक्शन नहीं है जो एक ही पंक्ति से कई स्थान-पृथक लाइनों को पढ़ने की अनुमति देगा। ऐसा करने के लिए, आपको अपना स्वयं का कार्य लिखना होगा:
<पूर्व>
संस्करण, डब्ल्यू: स्ट्रिंग;
मैं, जम्मू, इंडस्ट्रीज़: पूर्णांक;
ए: स्ट्रिंग की सरणी;
शुरू
रीड्लन (ओं);
सेटलेंथ (ए, लंबाई (ओं));
मैं := 1;
इंडस्ट्रीज़: = 0;
जबकि मैं < लंबाई (ओं) करते हैं
शुरू
जबकि (i < लंबाई(s)) और ('' + s[i] = ' ') do i += 1;
जे : = मैं + 1;
डब्ल्यू := '' + एस [मैं];
जबकि (j < लंबाई(s)) और ('' +s[j] <> ' ') शुरू करते हैं
डब्ल्यू + = एस [जे];
जे + = 1;
अंत;
ए [इंड] : = डब्ल्यू;
इंडस्ट्रीज़ + = 1;
मैं := जे;
अंत;
लिखें (एक [0], एक [1]);
अंत।
परिणामस्वरूप, हमें स्ट्रिंग्स की एक सरणी मिलती है।