Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменения, второе – заменить цифрой «2», третье – «3» и т.д. — Pascal(Паскаль)

uses crt;
var s,t:string;
    i,j,k:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
for i:=length(s) downto 2 do
 begin
  k:=1;
  for j:=1 to i-1 do
  if s[j]=s[i] then k:=k+1;
  if k>1 then
   begin
    str(k,t);
    delete(s,i,1);
    insert(t,s,i);
   end
 end;
writeln('Замена повторяющихся символов цифрами:');
write(s);
readln
end.