Chuyển kí tự đầu của xâu đến vị trị cuối. (Thủ tục Cắt dán )

PROGRAM CT85;
USES crt;
TYPE str79 = STRING[79];
VAR s1,s2: str79;
PROCEDURE CatDan(s1:str79; VAR s2: str79);
BEGIN
s2:=copy(s1,2,length(s1)-1)+s1[1];
END;
BEGIN
Write('Viet xau : '); Readln(s1);
Catdan(s1,s2);
Writeln(s1); Write(s2);
Readln
END.

Download: http://www.mediafire.com/?u2dw7zn5e3ulk3n