!\Function SwapSymbols(s: string): string;
begin
  Temp := '';
  For i:=1 to Length(s)do
    Temp:=s[i] + Temp;
  SwapSymbols:=Temp;
end;
\\