помогите исправить задачу на паскале

Задан список из 10 имен девочек. (array [.]of string). Подсчитать количество имен, в которых есть хотя бы 1 буква «р» .

вот как я решил:
const n = 10;
var a:array[1..n] of string; kol,kol_p,max,i,k:integer;
begin
max:=0;
for i:=1 to n do
begin
writeln('Введите имя ',i,' девочки'); readln(a);
if length(a)>max then max:=length(a);
end;
for i:=1 to n do
begin
for k:=1 to max do
begin
if a[k]='р' then kol_p:=kol_p+1;
end;
if kol_p>=1 then begin
writeln('В имени ',a,' одна или больше букв "р"');
kol:=kol+1;
kol_p:=0; end;
end;
writeln('Кол-во имен c p= ',kol);
end.