Изменить файл так, чтобы каждое число увеличилось на 1

var  
  F, F1: text; { файловая переменная }
  S,S1: string; { строка }
  i: integer;
 
///Процедура определения целого числа (если слово в файле является
///целым числом, то оно будет выведено на экран) 
procedure count(t: string; i2, m: word);
var
  p: integer;
  v: string;
  u: boolean;
begin
  u := true;
  for p := 1 to m do
    if not(S[i2 + p-1] in ['0','1','2','3','4','5','6','7','8','9']) then
    begin u := false; break end;
  if u then 
  begin 
    write(copy(s,i2,m), ' ');
    v := copy(s,i2,m);
    S1 += IntToStr(StrToInt(v) + 1) + ' ';
  end
end;
 
///Процедура выделения слова из текста
procedure slovo();
var
  j, i1, k: word;
  f: boolean;
begin
  i1:=0;
  k:=0;
  f := false;
  for j := 1 to length(s) do
  begin
    if (ord(s[j]) <> 32) then
    begin
      inc(k);
      if f = false then
      begin
        f := true; 
        i1 := j;
      end
    end
    else
    if f then 
    begin     
      f := false;
      count(copy(s,i1,k), i1, k);  
      k := 0;
    end
  end
end;   
 
begin
  S1 := ''; 
 { Внимание: текстовый файл лолжен находится 
 по адресу "D:\мой_текстовый_файл.txt" }
  Assign(F, 'D:\мой_текстовый_файл.txt'); { назначаем собственное имя }
  Reset(F); { открываем файл для чтения }
  Assign(F1, 'D:\увеличенное_число.txt'); { назначаем имя файла для записи}
  Rewrite(F1); { открываем файл для записи }
  writeln('Массив целых чисел из файла:');
  writeln;
  repeat
    if Eof(F) then Break; { прекратить, если конец файла }
    Readln(F, S); { прочитать строку из файла }
    slovo(); //вызываем процедуру по отделению слов из текста     
  until false;
 { Производим запись в файл: } 
  for i := 1 to Length(S1) do
    Write(F1, s1[i]); 
  Close(F); { закрываем файл с начальным массивом }
  Close(F1); { закрываем файл с массивом увеличенных чисел }
  writeln;
  writeln;
  writeln('Результат посмотрите в директории:');
  writeln;
  writeln('   Массив четных чисел - "D:\увеличенное_число.txt"');
end.

var
    c, i :longint;
    a :array[1 .. 10000] of longint;
begin
    assign(input, 'in');
    reset(input);
    while (not EOF) do begin
        c := c + 1;
        read(a[c]);
    end;
    close(input);
    assign(output, 'in');
    rewrite(output);
    for i := 1 to c do
        writeln(a[i] + 1);
    close(output);
end.