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

program dsadf;
var a,b,i,imax,max,s:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('ââåäèòå ïåðâóþ êîìïîíåíòó ôàéëà f');
rewrite(f);
readLn(b);
i:=1;
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('ââåäèòå ',i,'-óþ êîìïîíåíòó ôàéëà f');
readLn(b);
end;
reset(f);
writeLn('ôàéë f äî èçìåíåíèÿ:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
 
reset(F);
read(F,max);
imax:=0;
while not EOF(f) do
begin
read(F,b);
while b>max do
begin
max:=b;
imax:= filepos(F)-1;
end;
end;
s:=0;
reset(F);
while filepos(F)< imax do
begin
read(F,b);
if b>0 then
begin
s:=s+b;
 
end;
end;
 writeln('S=',S:5);
 writeln('max=',max:5);
 writeln('imax=',imax:5);
reset(F);
seek(f,imax+1);
while not eof(f) do
begin
while filepos(f)>imax do
begin
read(F,b);
if b<0 then
begin
b:=S;
end
end;
reset(f);
writeLn('ôàéë f ïîñëå èçìåíåíèÿ:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
end;
close(f);
end.

program dsadf;
uses crt;
var a,b,i,n,imax,max,s:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f');
rewrite(f);
readLn(b);
i:=1;
while b<>555 do
 begin
  write(f,b);
  inc(i);
  writeLn('введите ',i,'-ую компоненту файла f');
  readLn(b);
 end;
clrscr;
writeLn('файл f до изменения:');
reset(f);
n:=filesize(f);
read(F,max);
write(max:5);
imax:=0;
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,b);
  write(b:5);
  if b>max then
   begin
    max:=b;
    imax:=i;
   end;
end;
close(f);
writeLn;
writeln('Максимальное значение=',max,' индекс=',imax);
if imax=0 then
 begin
  writeln('До максимальной компоненты других нет');
  s:=0;
  writeln('Сумма=0');
 end
else
 begin
  s:=0;
  reset(F);
  for i:=0 to imax-1 do
   begin
    seek(f,i);
    read(f,b);
    if b>0 then s:=s+b;
   end;
  close(f);
  writeln('Сумма положительных до первого максимального=',s);
 end;
if imax=n then
 begin
  writeln('После максимальной компоненты других нет');
  writeln('Файл не изменился');
 end
else
 begin
  reset(f);
  for i:=imax+1 to filesize(f)-1 do
   begin
    seek(f,i);
    read(f,b);
    if b<0 then
     begin
      seek(f,i);
      write(f,s);
     end;
   end;
  close(f);
  writeln('Измененный файл');
  reset(f);
  while not eof(f) do
   begin
    read(f,b);
    write(b:5);
   end;
  close(f);
 end;
end.