1) дана строка. заменить все его символы, стоящие на нечетных местах, на букву "а" 2)даны три слова вывести на экран самое короткое

1)
var s: string; i: byte;
begin
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do begin
  delete(s,i,1);
  insert('a',s,i);
  i:=i+2;
end;
writeln(s);
end.

Введите строку:
Меняем нечетные символы на а
aеaяaмaнaчaтaыa aиaвaлa aаaа


2) это задание решено в другом Вашем