Chương trình Pascal để chuyển xâu St thành St bằng cách đảo phần tử lên đầu xâu có thể được viết như sau:

```pascal
program ReverseString;

var
St, ReversedSt: string;
SpaceIndex: integer;

begin
// Nhập xâu St
write('Nhập xâu St: ');
readln(St);

// Tìm vị trí khoảng trắng đầu tiên trong xâu St
SpaceIndex := pos(' ', St);

// Tạo xâu ReversedSt bằng cách đảo phần tử lên đầu xâu
ReversedSt := copy(St, SpaceIndex + 1, length(St) - SpaceIndex) + ' ' + copy(St, 1, SpaceIndex - 1);

// In xâu ReversedSt
writeln('Xâu St sau khi đảo phần tử lên đầu xâu: ', ReversedSt);
end.
```

Khi chạy chương trình, bạn sẽ được yêu cầu nhập xâu St. Sau đó, chương trình sẽ tìm vị trí của khoảng trắng đầu tiên trong xâu St và tạo xâu ReversedSt bằng cách đảo phần tử lên đầu xâu. Cuối cùng, chương trình sẽ in ra xâu ReversedSt.