Как ввести строковый тип данных (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);