Составьте , вычеркивающую из слова x буквы, стоящие на четных местах.

С динамическим массивом:
VAR
   i: Integer;
   a: Array of Char;
BEGIN
   Assign(input, 'input.txt'); ReSet(input);

   SetLength(a, 1);
   While (not eoln(input)) do begin
      SetLength(a, Length(a)+1);
      Read(a[Length(a)-1]); End;

   For i := 1 to Length(a)-1 do
     If (not Odd(i)) then a[i] := '-';

   For i := 1 to Length(a)-1 do Write(a[i]);
END.