Продублировать все компоненты файла, расположенные между максимумом и минимумом, дописав их в конец файла

type ts=^ps;ps=record v:integer;x:ts;end;
var f:file of integer;n,i,v,max,min:integer;r,c,h:ts;
begin
  assign(f,'chisto.int');
  write('сколько чисел: ');read(n);
  write('числа: ');rewrite(f);for i:=1 to n do begin read(v);write(f,v) end;close(f);writeln('файл создан');
  write('исходный файл:');reset(f);r:=nil;while not eof(f) do begin read(f,v);write(#32,v);if r=nil then begin new(r);r^.v:=v;c:=r end else begin new(c^.x);c:=c^.x;c^.v:=v end; end;writeln;close(f);c^.x:=nil;
  if r=nil then exit;
  max:=r^.v;min:=r^.v;c:=r;while c<>nil do begin if c^.v>max then max:=c^.v else if c^.v<min then min:=c^.v;c:=c^.x;end;
  while(r^.v<>min)and(r^.v<>max)do begin c:=r;r:=r^.x;dispose(c);end;
  c:=r^.x;while(c<>nil)and((c^.v<>min)or(c^.v<>max))and(c^.v<>r^.v)do c:=c^.x;
  if c<>nil then while c^.x<>nil do begin h:=c^.x;c^.x:=h^.x;dispose(h);end;
  reset(f);while not eof(f) do read(f,v);
  c:=r^.x;while c^.x^.x<>nil do begin write(f,c^.v);c:=c^.x end;close(f);
  write('преобразованный файл:');reset(f);while not eof(f) do begin read(f,v);write(#32,v) end;writeln;close(f);
end.