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

1)
var s: string; i: byte;
begin
writeln(Введите строку:);
readln(s);
i:=1;
while ilt;=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) это задание решено в другом Вашем вопросе znanija.com/task/22037051