строки Опции

[*оля*]

помогите пожалуйста разобраться:

 
...
c:=[ ':', '(', '=', ')']; //нужно поставить пробел до и после этих знаков, если они встретились в строке
...
   s:='';
   while not eof(g) do begin
   readln(g,line);
   a:=line;
   for i:= 1 to length(a) do begin
   if a[i] in c then
   s:= (copy(a,1,i-1)+' '+copy(a,i,1)+' '+ copy(a,i+1,length(a)-i)); //что-то здесь наверное не то
   end;
   writeln(f,s);
   end;

.

Сообщение отредактировано: *оля* - 2.05.2010 19:50