Строки. Ошибку.

[Лилитана]

Дан текст. Откорректировать данный текст: между двумя определенными символами (введенными с клавиатуры) вставить звездочку, подсчитать количество вставок и сумму кодов всех символов до вставки звездочек и после.

Сначала звездочку не вставляло, потом исправила, начало вставлять, но немного неправильно.
Пожалуйста, помогите найти где у меня ошибка.

program lab_7;
uses crt;
var t:string;
    s1,s2:char;
    i,j,x,sum,sum2:integer;
begin
  clrscr;
  write('Input text: '); readln(t);
  write('Input first symbol: '); readln(s1);
  write('Input second symbol: '); readln(s2);
  sum:=0;
  sum2:=0;
  j:=1;
  for i:=1 to length(t) do sum:=sum+ord(t[i]);
  for i:=1 to length(t) do if t[i]=s1 then begin
                                           repeat inc(j);
                                           until (t[j]=s2) or (j>length(t));
                                           if t[j]=s2 then begin insert('*',t,i+1);
                                                                 inc(x);
                                                                 end;
                                           end;
  for i:=1 to length(t) do sum2:=sum2+ord(t[i]);
  writeln('Summa codes of symbols in starting text: ',sum);
  writeln('Summa codes of symbols in new text: ',sum2);
  writeln('Symbol "*" input in text: ',x,' times');
  writeln('New text: ',t);
  readln;
end.

[Son Of Pain]

Ты нигде не инициализируешь переменную x, как минимум.

[phomm]

program lab_7;
uses crt;
var t:string;
    s1,s2:char;
    i,j,x,sum,sum2:integer;
begin
  clrscr;
  write('Input text: '); readln(t);
  write('Input first symbol: '); readln(s1);
  write('Input second symbol: '); readln(s2);
  sum:=0;
  sum2:=0;
  x := 0;
  for i:=1 to length(t) do sum:=sum+ord(t[i]);
  i := 1;
  while i < length(t) do 
  begin
    if t[i]=s1 then 
    begin
      j := i + 1;
      if t[j]=s2 then 
      begin 
        insert('*',t,j);
        inc(x);
        inc(i);
      end;
    end;
    inc(i);
  end;
  for i:=1 to length(t) do sum2:=sum2+ord(t[i]);
  writeln('Summa codes of symbols in starting text: ',sum);
  writeln('Summa codes of symbols in new text: ',sum2);
  writeln('Symbol "*" input in text: ',x,' times');
  writeln('New text: ',t);
  readln;
end.

Если я правильно понял задание, то примерно так. Код не проверял, тут написал.
Лучше использовать цикл while ибо строка изменяется по ходу цикла.