Pascal ABC.NET ошибка

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program a;
var i,b,a,c:integer;
s:string;
begin
b:=1;
readln(s);
repeat;
c:=length(s);
repeat;
i:=i+1;
if s='p' then begin
delete(S,i,1);
end;
until i>=c;
b:=b-1;
until b<0;
writeln(s);
end.
как исправить ошибку скажите пожалуйста ( if s='p' then begin кидает в эту строку)