Решение задачи String 67

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s, s1 = "";
    cin >> s;
    for(int i = 0; i < s.size()/2; ++i){
        cout << s[s.size() - i - 1] << s[i];
    }
    if(s.size() % 2)
        cout << s[s.size()/2];
    return 0;
}

program String67;
var
 S,S2:String;
 i:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  S2:='';
  while (i<=(Length(S) div 2)+(Length(S) mod 2)) do
   begin
    S2:=S2+S[Length(s)-i+1]+S[i];
    inc(i);
   end;
  if (Length(S) mod 2<>0) then delete(S2,Length(S2),1);
  Writeln(S2);
end.