С клавиатуры запрашивается строка S. Сформировать в памяти строку R, в которой выписаны по порядку символы строки S: первый, последний, второй, предпоследний, и т.д...

Var
   S,R:string;
   i,L:integer;
Begin
Write('Введите строку: ');ReadLn(S);
L:=Length(S);
R:='';
For i:= 1 to L div 2 do
    R:=R+S[i]+S[L-i+1];
if L mod 2 <> 0 then
   R:=R+S[L div 2+1];
Write(R)
End.