Как ввести строковый тип данных (string) через пробел в паскале

Readln (s) ;

s1:=copy (s, 1, pos (' ', s) - 1) ;

delete (s, 1, pos (' ', s)) ;

s2:=copy (s, 1, pos (' ', s) - 1) ;

delete (s, 1, pos (' ', s)) ;

s3:=s;

if (s1>s2) and (s1>s3) then writeln (s1)

else if (s2>s1) and (s2>s3) then writeln (s2)

else writeln (s3) ;