Delphi. задача со строками

[SnowFall]

Написать программу разархивации исходной последовательности символов, которая заменяет текст вида х(к), где х - символ, к - число вхождений, на последовательность, состоящую из заданного количества одинаковых символов х. Определить для указанной последовательности коэффициэнт сжатия (отношение полученной длины последовательности к исходной).

Например пишешь a(4)b(2)c(5) и должно выдать aaaabbccccc. Помигите пожалуйста

[NeshSoft]

В чем затруднения? Читаем одну строку по символьно, вставляем то, что нужно в другую строку, затем определяем коэффициент

[ViNcHeStEr]

Вот так:

var
  s:string;
  c:char;
  i,n,j:byte;

procedure TForm1.Button1Click(Sender: TObject);
begin
 s:=edit1.Text;
 edit1.Clear;
for i:=1 to (length(s)-2) do
begin
 if s[i+1]='(' then
begin
 c:=s[i];
 n:=strtoint(s[i+2]);
for j:=1 to n do
begin
 edit1.Text:=edit1.Text+c;
end;
end;
end;
end;

[SnowFall]

в том и затруднения что я не могу написать это в коде

спасибо вам большое)

тока мне по как то по другому надо, но ладно...

[Stilet]

тока мне по как то по другому надо

Чем так некошерно?

[SnowFall]

ну у меня Turbo Delphi в этой задаче выдаёт 10 ошибок.
Надо по типу такого

uses crt;
const n=10;
var a:array[1..n] of string[20];
ind:array[1..n] of byte;
i,j,temp:byte;

begin
for i:=1 to n do
begin
readln(a[i]);
ind[i]:=i;
end;
for i:=2 to n do
for j:=n downto i do
if a[ind[j-1]]>a[ind[j]] then
begin
Temp:=ind[j-1];
ind[j-1]:=ind[j];
ind[j]:=temp;
end;

writeln('========================== ==');
for i:=1 to n do
writeln(a[ind[i]]);
end.

задача с этого же форума

[maladoy]

uses crt
var
  s,s1:string;
  c:char;
 cod:integer;
  i,n,j:byte;
begin
s1:='';
 readln(s);
for i:=1 to (length(s)-2) do
begin
 if s[i+1]='(' then
begin
 c:=s[i];
 val(s[i+2], n, cod);
for j:=1 to n do
begin
 s1:=s1+c;
end;
end;
end;
end.

пробуй!!!