Помогите, пожалуйста, написать программу на действия с елементами массива в Delphi

[Fanatka_1995]

Написать программу, которая вводит символьный массив из 11-ти или меньшего количества элементов и заменяет в нем все точки и запятые знаком "%".

[Хыиуду]

for i:=1 to 11 do if (s='.' or s=',') then s:='%'