Файлы, и работа сними Опции

[Geroi]

Вот такая проблемка.

Код

type myfile = file of integer;

Опишите процедуру double (f), удваивающие в файле f все четные числа.

У нас есть файл, проверяем то, что в нём написано на чётность, если какое-то число чётное, то надо его умножить на 2 и записать вместо умножаемого числа. Файл должен быть один, т.е. использовать ещё один файл нельзя. :-/

Задан текстовый файл 'a.txt'. Написать программу, которая утраивает значения слов, являющиеся четными числами.

Как её вообще делать? с чего начать?!?!!?!?!? ??? Имеется в виду, что не создание файла
Всем заранее спасибо ;D
Ivs надеюсь на твою помощь и других знатоков Паскаля....

[Ivs]

Ладно хватит паливать друг друга матом не из-за чего...
Вот прога, но я её мало тестил так что могут (да скорее всего они и есть) - быть глюки

Код

program for_Geroi;

Var
  i,j,code,Num2 : Integer;
  S,Num         : String;
  f,fn          : Text;

Begin
  Assign(f ,'a.txt'); Reset(f);
  Assign(fn,'b.txt'); Rewrite(fn);
  while not(EoF(f)) do
  begin
     Readln(f,S);
     i:=1;
     while i<=length(S) do
     begin
      Num:='';
      while (S[i] in ['0'..'9']) do
      begin
          Num:=Num+S[i];
          Inc(i);
      end;
      if Num<>'' then
      begin
         Val(Num,Num2,code);
         if Num2 mod 2 = 0 then
         begin
            Num2:=Num2*3;
            Str(Num2,Num);
         end;
      Write(fn,Num);
      end;
      if NOT(S[i] in ['0'..'9']) then Write(fn,S[i]);
      Inc(i);
     end;
     Writeln(fn);
  end;
  Close(f);
  Close(fn);
  Erase(f);
  Rename(fn,'a.txt');
End.

Прогу не комментировал так что если чего непонятно - спрашивай.