Составить процедуру "сжатия" исходной последовательности символов (Паскаль). Помогите пожалуйста исправить программу

[ИриSка-147]

Индекс находится вне границ массива

program Task464;
uses crt;
var
   s: string;

procedure RAR(var s: string);
var
   s1, s2: string;
   i, j, k: integer;
begin
   s1:='';
   i := 1;
   while i <= length(s)-1 do begin
      if s[i] = s[i + 1] then begin
         k:= 1;
         j:= i;
         repeat
             k:= k+1;
             j:= j+1;
        
         until s[j]<>s[j+1];
         str(k, s2);
         s1:= s1 + s[i] + '('+ s2 +')';
         i:= i + k;
      end
      else begin
         s1:= s1 + s[i];
         i:=i+1;
      end;
   end;
       if s[length(s)] <> s[length(s) - 1] then
         s1:= s1 + s[length(s)];
   s:=s1;
end;
begin
   write('Введите строку: ');
   read(s);
   RAR(s);
   write('Сжатая строка: ', s);
end.

[Stilet]

Как звучит задание? Реализовать алгорим сжатия RLE?

[ИриSка-147]

Составить процедуру "сжатия" исходной последовательности символов: каждая подпоследовательность ,состоящая из нескольких вхождений одного и того же символа, заменяется на текст х(к),где х-символ, к-строка, являющаяся записью числа вхождений символа х в исходную последовательность

[Stilet]

Ну да. Походу RLE...
Давай попробую подсказать своим примером

program Project1;

var s,d,v:string;i,j:integer;
begin
  s:='Hello goooooogle world'; d:='';
  i:=1;while i<Length(s) do begin
    j:=0; while ((j+i)<Length(s))and(s[i]=s[j+i]) do inc(j);
    if j>1 then begin 
      Str(j,v); 
      d:=d+s[i]+'('+v+')'; 
      inc(i,j-1); 
    end else 
      d:=d+s[i];
    inc(i);
  end; d:=d+s[i];
  writeln(d); readln;
end.

Надеюсь все понятно?

[ИриSка-147]

да,все понятно,спасибо)

хотя нет,объясните пожалуйста эту строчку: d:=d+s[i]+'('+v+')';

[Stilet]

Вот так новость О_о
У тебя же в коде такая строка есть, или то что выше представлено не ты писала?

[ИриSка-147]

я уже поняла))))теперь если вводим строку из одного символа,то задача не идет

[Stilet]

Опа! А один символ то не сжимается...
Кстати, в моем примере даже один символ должен вывестись на экран...
Или нет?

[ИриSка-147]

я исправила, вот что получилось:

program Task464;
uses crt;
var
   s: string;

procedure RAR(var s: string);
var
   s1, s2: string;
   i, j: integer;
begin
s1:='';
i:=1;
while i<Length(s) do begin
    j:=0;
    while ((j+i)<Length(s))and(s[i]=s[j+i]) do inc(j);
    if j>1 then begin 
      Str(j,s2); 
      s1:=s1+s[i]+'('+s2+')'; 
      inc(i,j-1); 
    end else 
      s1:=s1+s[i];
    inc(i);
  end;
   if s[length(s)] <> s[length(s) - 1] then
         s1:= s1 + s[length(s)];
   s:=s1;
end;
begin
   write('Введите строку: ');
   read(s);
   RAR(s);
   write('Сжатая строка: ', s);
end.

она не идет для одного символа