когда ввожу 1 элемент,то задача не идет...как исправить??
 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.

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('Enter the string: ');
 Readln(s);
 RAR(s);
 write('Compressed string: ', s);
 ReadKey
End.