Дан текст. Найти все слова, в которых букв «а» входит не менее двух раз- Pascal(Паскаль)

const z:set of char=[',','.','!','?',':',' ']; {множество знаков препинания}
var s,c:string;
 i,k:integer;
begin
writeln('Введите строку');
readln(s);
repeat
i:=0; k:=0; c:='';
while not (s[i] in z) do {пока очередной символ не знак препинания}
begin
 inc(i);
 c:=c+s[i]; {добавляем его к строке}
end;
for i:=1 to length(c) do {от 1 до длины полученного слова}
if (c[i]='a')or (c[i]='A') then inc(k); {если символ "а" или "А" инкрементируем k}
if k>=2 then writeln(c); {если кол-во вхождений символа больше 2, выводим слово}
delete(s,1,length(c)); {и удаляем его}
until length(s)=0; {повторяем это все в цикле, пока длина исходной строки станет равной 0}
readln;
end.