');
sound(zvuk); delay(del); nosound;
readln; close(g);
halt;
End;

Procedure DAt;
Begin
writeln;
textcolor(14);
writeln(' Этап пройден успешно.');
textcolor(15);

readln; clrscr;
End;

procedure initial;
begin
assign(f,'input.txt'); reset(f);
assign(g,'output.txt'); rewrite(g);
{1-initial}
clrscr; textcolor(15);
writeln(' 1 этап -Инициализация...');
c:=['0'..'9'];
bukva:=['a'..'z'];
BUKVA2:=['A'..'Z'];
writeln; writeln('> Из файла считана строка:'); writeln;
while not(eof(f)) do
begin
read(f,s);
write(s);
dlina:=length(s);
end; if dlina=0 then nett;
writeln;
writeln;
textcolor(14);
writeln(' Этап пройден успешно.');
textcolor(15);

readln; clrscr;
end;

procedure trans;
Begin

writeln(' 2 этап- Транслитерация... ');
writeln('> Проверка на присутствие недопустимых символов');
writeln('(Допустимо - a..z A..Z = . ; + .. ::= )'); writeln;
while i<>dlina do begin
inc(i);
b[i]:=s[i];
end;
writeln('> Анализ строки: ');
for n:=1 to i do write(b[n],' ');

for i:=1 to dlina do
Begin
if (b[i]<>'+')
and(b[i]<>'.')
and (b[i]<>'=')
and (b[i]<>';')
and (b[i]<>' ')
and (b[i]<>'-')
and (b[i]<>'[')
and (b[i]<>']')
and (not(b[i] in c))
and (not(b[i] in bukva))
and (not(b[i] in BUKVA2)) then NETt;
End; {for}

{создаем массивы из букв,знаков, цифр}
for i:= 1 to dlina do begin
if (b[i] in bukva) or (b[i] in BUKVA2) then mb[i]:=b[i];
if b[i] in c then mc[i]:=b[i];
if
(b[i]='=') or
(b[i]='+') or
(b[i]='-') or
(b[i]='.') or
(b[i]='[') or
(b[i]=']') or
(b[i]=';') then mz[i]:=b[i];
end;
writeln;
writeln('');
writeln('буквы:');
for i:= 1 to dlina do sb:=sb+mb[i]; {получаем строку из переменных и ключевых слов}
write(sb); writeln;

writeln('');
writeln('цифры:');
for i:= 1 to dlina do write(mc[i]); writeln;

writeln('');
writeln('знаки:');
for i:= 1 to dlina do write(mz[i]); writeln;
writeln('');

DAt;
end;

s$ = ""

FOR i = 1 TO 100
IF (i MOD 2) <> 0 THEN
s$ = s$ + STR$(i) + " "
END IF
NEXT i

PRINT s$

Дополнение :

Чисел много, на экран не убираются

Будем из запоминать в текстовую переменную s$

s$ = "" -- Инициализирует пустую строковую переменную
FOR i = 1 TO 100 -- цикл от 1 до 100
IF (i MOD 2) <> 0 THEN -- нечетное число то, у которого отстаток от деления
-- на 2 не равен 0
-- <> логический оператор НЕ РАВНО
-- MOD - оператор возвращает остаток от деления
s$ = s$ + STR$(i) + " " -- Положить в конец переменной s$ строковое
-- предствление числовой переменной i
END IF -- конец блока цикла
NEXT i
PRINT s$ -- вывод переменной s$ на экран

Всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?

В данной прграмме подсчитывается сумма  нечётных элементов массива

Если же нужно второе то строку отмеченную {*} следует заменить на

if (i mod 2)>0 then s:=s+a[i];   

Program massiv;

Uses Crt;

var a:array[1..10] of integer;

       i,sum,ch:integer;

 begin

     clrscr;      

     write('Введите число:' );

     readln(ch);

     write('Введите элементы массива:');

     sum:=0; 

     for i:=1 to 10 do

           begin 

               readln(a[i]);

               if (a[i] mod 2)>0 then s:=s+a[i];        {*}

           end;

     writeln; write('Исходный массив: ');

for i:=1 to 10 do

      begin  

            write(a[i]);

            write('  ' ); 

    end;  

  writeln; writeln;  

  write('Сумма нечётных элементов массива: ',sum)

  writeln; writeln;   

  write('Номера элементов которые больше числа ',ch,' : ' );

for i:=1 to 10 do

      if (a[i]>ch) then  

             begin  

                 write(i:2); 

                 write('  ' ); 

           end;

  writeln; writeln;

  write('Положительные числа которые кратны числу ',ch,' : ' );  

for i:=1 to 10 do

      if (a[i]>0) and (a[i] mod ch=0)  then  

             begin  

                 write(a[i]); 

                 write('  ' ); 

           end;

     readkey;  

end.