К сожалению, в Паскале нет функции, которая бы позволяла считывать несколько строк, разделённых пробелом, из одной строки. Для этого придётся написать свою функцию:
var s, w: string;
i, j, ind: integer;
a: array of string;
begin
readln(s);
setlength(a, length(s));
i := 1;
ind := 0;
while i < length(s) do
begin
while (i < length(s)) and ('' + s[i] = ' ') do i += 1;
j := i + 1;
w := '' + s[i];
while (j < length(s)) and ('' +s[j] <> ' ') do begin
w += s[j];
j += 1;
end;
a[ind] := w;
ind += 1;
i := j;
end;
write(a[0], a[1]);
end.
В результате мы получаем массив строк.