Ввод двух переменных без переноса строки - Pascal ABC

Формулировка задачи:

есть два read в первом считывается string, во втором integer можно ли как-то сделать, чтобы ввод (после введения string) не перескакивал на следующую строку

Решение задачи: «Ввод двух переменных без переноса строки»

Листинг программы

var s,s1:string;
    a:integer;
begin
writeln('Введите строку и число через пробел');
readln(s);
s1:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
a:=strtoint(s);
writeln(s1,' ',a);

Объяснение кода листинга программы

Объявлены три переменные: s, s1 и a. Переменная s имеет тип string, а переменные s1 и a имеют тип integer.
Выводится сообщение, которое предлагает пользователю ввести строку и число через пробел.
Введенные данные считываются в переменную s с помощью функции readln.
С помощью функции copy из строки s создается новая строка s1, которая содержит все символы исходной строки, начиная со второго и до последнего, но не включая пробел.
С помощью функции delete из строки s удаляются все символы, начиная с первого и до последнего, но не включая пробел.
С помощью функции strtoint из строки s1 преобразуется в целое число и сохраняется в переменной a.
Выводится значение переменной s1 и значение переменной a.