Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом. Пробовала через копи и пост но в итоге белиберда получается как прогу составить?

Вопрос от пользователя: Васяка

Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом.

Пробовала через копи и пост но в итоге белиберда получается как прогу составить?

Ответ: Лизура

Var

s:string;

i, k:integer;

begin

readln (s);

k : = 0;

for i : = 1 to length (s) do

if s[i] = ‘,’ then

s[i] : = ‘ ‘

else if s[i] = ‘a’ then

k : = k + 1;

writeln (‘»a»: ‘, k);

writeln (s)

end.