Массивы и строки Опции

[viv]

Помогите решить задачки
1-я: В последовательности a1, a2,...an найти числа, которые входят в последовательность по одному разу.
2-я: В первой половине строки все запятые заменить на точки, а во второй половине удвоить каждую встретившуюся точку.

[APAL]

2)

Код

Var
 St : String;
 i  : Byte;

Begin
 St:='wegr,.. esdfg. ,sdfg., .sdf, .s,dfg,s.d .fg. ,s.f.';
 Writeln(St);
 For i:=1 to (Length(St) div 2) do
   If St[i]=',' then St[i]:='.';
 For i:=Length(St) downto (Length(St) div 2)+1 do
   If St[i]='.' then
     Insert('.',St,i);

 Writeln(St);
End.