помогите пожалуйста доработать программу

Лень разбирать код; но, видимо, вывод происходит в строчке
writeln(f2,c,a[c]);
замени ее на
write(f2,c);{вывести букву}
for i:=1 to a[c] do write('*');{вывести a[c] звездочек}
writeln;{ну и новую строку не забыть}