var
s:string;
c,k:integer;
b:byte;
a:char;
begin
write('Type stroke: '); readln(s);
write('Type symbol: '); readln(a);
c:=length(s);
k:=0;
for b:=1 to c do begin
if s=('a') then
k:=k+1;
end;
for b:=1 to c do begin
if s=('a') then
delete(s,b,1); end;
writeln('symbol ', a, ' is written ', k, ' times.');
write(s);
end.
Строка с ошибкой: if s=('a') then
delete(s,b,1); end;
Индекс выходит за границы массива. Заранее спасибо.
s:string;
c,k:integer;
b:byte;
a:char;
begin
write('Type stroke: '); readln(s);
write('Type symbol: '); readln(a);
c:=length(s);
k:=0;
for b:=1 to c do begin
if s=('a') then
k:=k+1;
end;
for b:=1 to c do begin
if s=('a') then
delete(s,b,1); end;
writeln('symbol ', a, ' is written ', k, ' times.');
write(s);
end.
Строка с ошибкой: if s=('a') then
delete(s,b,1); end;
Индекс выходит за границы массива. Заранее спасибо.