Есть массив из 6 элементов символьного типа. Сосчитать количество символов "+". Если их больше 4, то заменить их на символ =. Напечатать весь массив

program HelloWorld;

var n:array [1 ... 6] of string;

var i, k, j: smallint;

begin

n[1] : = '1+';

n[2] : = '2+';

n[3] : = '3+';

n[4] : = '4+';

n[5] : = '5+';

n[6] : = '6';

k : = 0;

for i:=1 to 6 do

if pos ('+', n[i]) > 0 then k : = k + 1;

if k>4 then

for i:=1 to 6 do

begin

j : = pos ('+', n[i]) ;

if j > 0 then

begin

delete (n[i], j, 1) ;

insert ('=', n[i], j) ;

end;

end;

for i:=1 to 6 do

writeln (n[i]) ;

end.