Определить номер первой и номер последней буквы «к» в тексте. Все символы расположенные между ними, записать в обратном порядке — Pascal(Паскаль)

Uses
 CRT;
Var
 s,s1:string;
 i,ind1,ind2:integer;
begin
ClrScr;
readln(s);
ind1:=0;
ind2:=0;
for i:=1 to length(s) do
if s[i]='к' then
begin
ind1:=i;
break;
end;
writeln('Номер первой:',ind1);
for i:=length(s)  downto 1 do
if s[i]='к' then
begin
ind2:=i;
break;
end;
writeln('Номер последней:',ind2);
s1:='';
for i:=ind2-1 downto ind1+1 do
begin
s1:=s1+s[i];
end;
delete(s,ind1+1,length(s1));
insert(s1,s,ind1+1);
writeln('Результат:=',s);
readkey
end.