Оптимизация задачи

[Sparky]

Дана строка состоящая из маленьких латинских букв, необходимо, перевернуть в ней подстроки находящиеся между ,. Вот мой код:

program strchange;
var
   s:string;
   prew:integer;  //íîìåð ñèìâîëà êîòîðûì çàêàí÷èâàåòñÿ ñëîâî
   i,left:integer;  //íîìåð ñèìâîëà ñ êîòîðîãî íà÷èíàåòñÿ ñëîâî

procedure change (l:integer;r:integer);
var
   j:integer;
   p:char;
   count:integer;
begin
     count:=((r-l) div 2)-1;
     for j:=0 to count do
     begin
          p:=s[l+j];
          s[l+j]:=s[r-j-1];
          s[r-j-1]:=p;
     end;
end;

procedure insertInput;
var
   f:text;
begin
     assign(f,'d:\ÊÌÁ\Èíôîðìàòèêà\Ïðàêòèêà\input.txt');
     reset(f);
     readln(f,s);
     close(f);
end;

procedure insertOutput;
var
   f:text;
begin
     assign(f,'d:\ÊÌÁ\Èíôîðìàòèêà\Ïðàêòèêà\output.txt');
     rewrite(f);
     writeln(f,s);
     close(f);
end;

begin
     insertInput;
     left:=1;
     prew:=-1;
     for i:=1 to length(s) do
     begin
          if (s[i]=',') then
          begin
               prew:=i;
               change(left,prew);
               left:=prew+1;
          end
          else if i=length(s) then
          begin
               prew:=i+1;
               change(left,prew);
          end;

     end;
     insertOutput;
end.

Как можно его оптимизировать?
Замечание: используйте тег [CODE]