Ввод нескольких строк сразу (Pascal)

[Nafustal]

Задался вопросом ввод нескольких строк в одном операторе read/readln.
Оказывается, Паскаль не использует пробел как разделитель в этом случае и весь поток символов записывает в первую строковую переменную. Есть ли какой-нибудь способ решить эту проблему без использования сторонних библиотек, как в Питоне (

a,b = input().split(' ')

)?

var a,b:string;
begin
    write('Enter 2 words separated by a space: ');
    read(a,b);
    if b = '' then b := 'Empty string :(';
    writeln('a = ', a);
    writeln('b = ', b)
end.

Вывод:

Enter 2 words separated by a space: just a string, sentence
a = just a string, sentence
b = Empty string :(

[Вадим Мошев]

Если строка не предполагает содержание пробелов, то можете каждую неразрывную последовательность символов записать в отдельный элемент... массива или динамического списка.

Псевдо-код с указанием алгоритма такой

read(myString);

Анализируем строку myString. Первое слово помещаем в первый элемент массива/списка, второе - во второй и так далее

Кстати,

Оказывается, Паскаль не использует пробел как разделитель

А ENTER вместо пробела пробовали нажимать?

[Nafustal]

Сообщение от Вадим Мошев

Паскаль не использует пробел как разделитель

И <Enter> - тоже.

Кстати, b := '' при выполнении операции. Проверял, присваивая значение этой переменной перед вводом.

[ViktorR]

Как вариант. Можно использовать форматированный ввод.
Т.е. если описать две переменные, скажем:

var str1: string[15];
     str2: string;

То при вводе,

readln(str1, str2);

в str1 будет прочитано только первые 15 символов.
Остальные символы будут прочитаны и помещены в переменную str2.

Конечно, если ввод пользователем, то это как-то ...
В то же время, если ввод из форматированного файла, то всё зависит от того, как этот файл был подготовлен.

Как понимаю, это чисто теоретическое исследование, поскольку существуют и другие решения.
read() и readln() - это процедуры, которые принимают всегда строку и которые затем разбирают строку в соответствии с типами параметров.
Например, можно написать так:

var a: integer;
     b: real;
     str1: string;

...
   readln(a, b, str1); {ввести 5 6.5 Privet Vasya}
...

И всё будет нормально.
PS: Проверил на FPS, ранее проверял и работало на TP.
Столкнулся с тем, что при отслеживании (режим отладки) в окне Watches, строка содержит и символ удаления, если при вводе удалялся символ ...

Как-то так, ...

[min@y™]

Есть ли какой-нибудь способ решить эту проблему без использования сторонних библиотек, как в Питоне (

я б не заморачивался и запилил бы функцию типа дельфовой SplitString() за 5 минут, да и всё.

[Arigato]

Сообщение от Nafustal

И <Enter> - тоже.

Для Энтера:

  readln(a);  readln(b);