Работа с файлом, системы счисления.

[Dasha Strogova]

Помогите пожалуйста написать код программы.
Исходный файл содержит числа в восьмеричной системе счисления, отделенные друг от друга запятыми. Составить программу, которая для каждого такого числа из заданного диапазона после знака равенства указывает его значение в десятичной системе счисления, дополнительном коде или его инверсию по выбору пользователя, например:

10000=4096, 23=19 и т.д.

Результат требуется записать в сам исходный файл.

Я тут пробовала сама сделать, не получается.

Var
 chs: integer;
 f:text;
 s, m, c, rd, rd2: string;
 ch: char;
 i, dig, num, cur: integer;
 Procedure ToDec;
  begin
  assign(f, 'c:\Test.txt');
   Reset(f);
   m:='';
    while not EOF(f) do
     begin
      Read(f, ch);
      c:=ch+m;
      s:=s+c;
     end;
    Close(f);
  num:=0;
   for i:=1 to length(s[i]) do
    begin
     if (s[i]=',') or (s[i]='.') then
      begin
      write(rd, '=', num, ',');
      num:=0;
      end
     else
     begin
     dig:=Ord(s[i])-48;
     num:=num*8+dig;
     rd:=s[i]+m;
     rd2:=rd+m;
     end
    end
   end;
 Begin
  while (true) do
    begin
     writeln('1 - Start');
     writeln('0 - Close');
     readln(chs);
      case (chs) of
       1: ToDec;
       0: Halt;
     end;
   end
 End.

[Dvoishnik]

вроде как-то так, не проверял.

..................................
while not EOF(f) do
 begin
      Readln(f, st);
      s:=s+st;
 end;
.............
s:=s+','
...........
while pos(',',s)<>0  // цикл пока есть запятые
 begin
       s1:=copy(s,1,(pos(',',s)-1)); // копируем в переменную s1 число
       delete(s,1,pos(',',s));  // удаляем число с запятой
       for i:=1 to length(s1) do // цикл для перевода из 8 в 10-ричную систему
        begin
             val((s1[i]),chislo); // переводим цифру из строки в число
             {переводим из 8 в 10-ричную систему }
             chislo:=chislo*( Exp(length(s1)-i)*Ln(chislo)); 
             chislo1:=chislo1+chislo;
        end; 
       s2:=s2+s1+'='+str(chislo1)+','; //записываем конечную строку
 end;
................