Удалить из строки m стоящих подряд элементов

[Alexi01]

Здравствуйте. Задача - удалить из строки все группы длиной m подряд стоящих одинаковых символов. Т.е. если ввести m=2, строку aaabbcd, то надо получить строку aacd.
Подскажите пожалуйста алгоритм решения. Программа у меня написана, но она выдаёт при запуске ошибку.

var 
str:string;
k,n,m,i:integer;

begin
writeln('введите строку');
readln(str);
writeln('введите m');
readln(m);
k:=0;
i:=1;
n:=length(str);

while i<n do begin
if str[i]=str[i+1] then repeat k:=k+1 until str[i]<>str[i+1];
if k>=m-1 then begin
delete(str,i,m);
i:=i+k+1;
end;
end;
writeln(str);
end.

[Alexi01]

Задача уже решена собственными силами. Помощь не нужна.