Tách từ đầu tiên ra khỏi 1 xâu kí tự cho trước .̣pascal

program tudautien;

uses crt;

var st,st2:string;

      i:byte;

begin

     clrscr;

     write(‘Nhap xau: ‘);   readln(st);

     st2:=st[1];   i:=2;

     while st[i]<>’ ‘ do

          begin

               st2:=st2+st[i];

               i:=i+1;

          end;

     write(‘Tu dau tien la: ‘,st2);

     readln;

end.