Найти в файле F1 все заменяемые слова и заменить их на соответствующие заменяющие слова

uses crt;
var f:file of integer;
    a,b,c,i,j,k:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
write('Введите число для сравнения b=');
readln(b);
reset(f);
i:=0;k:=0;
while i<filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  seek(f,i+1);
  read(f,c);
  if(b>a)and(b<c) then
   begin
    k:=1;
    for j:=filesize(f) downto i+2 do
     begin
      seek(f,j-1);
      read(f,a);
      seek(f,j);
      write(f,a);
     end;
    seek(f,i+1);
    write(f,b);
   end
  else i:=i+1;
 end;
close(f);
if k=0 then write('Нет ни одной вставки числа ',b)
else
 begin
  writeln('Файл после вставок');
  reset(f);
  for i:=0 to filesize(f)-1 do
   begin
    read(f,a);
    write(a,' ');
   end;
  close(f);
 end;
readln
end.