gistfile1.pas

var
    myString : String;
    mem1: char;
    mem2: char;
    l: int;
begin
 myString := 'Hey! How are you?';
 writeln(myString);
 l := length(myString);
 mem1 := myString[length-1];
 mem2 := myString[length-2];
 myString[length-1] := myString[1];
 myString[length-2] := myString[0];
 mySrtring[0] := mem2;
 mySrtring[1] := mem1;
 writeln(myString);
end.