viết chương trình nhập vàp xâu họ tên. em hãy tách họ trong xâu họ tên vừa nhập

program ho_trongxau;

uses crt;

var s,st:string;

       i:byte;

begin

clrscr;

write(‘Nhap ho ten: ‘);    readln(s);

i:=1;  st:=”;

while s[i]<>’ ‘ do

 begin

  st:=st+s[i];

  i:=i+1;

 end;

write(‘Ho trong xau ho ten la: ‘,st);

readln

end.