...

sprzedane:=filesize(c);

if FileExists(Plik) then Reset(Plik) else Rewrite(Plik)

procedure wczytajosobe;
var
  b : file of t_osoba;
  i : byte;
begin
  assign(b, 'osoby.bin');
  if fileexists('osoby.bin') then
    reset(b)
  else
    rewrite(b);

  for i := 1 to osoby do
  begin
    //seek(b, i); //<-- jak juz wczesniej pisalem to seek tutaj niepotrzebne
    read(b, osoba[i]);
  end;
  close(b);
  liczenie;
end;

//------------------------------------------------------//

procedure dodajosobe;
var
  b : file of t_osoba;

begin
  wczytajosobe;
  writeln('# Dodaj nowa osobe');
  write('| Imie : ');
  readln(osoba[osoby + 1].imie); //<-- tu wszedzie + 1
  write('| Nazwisko : ');
  readln(osoba[osoby + 1].nazwisko);
  write(' | ID : ');
  readln(osoba[osoby + 1].indeks);
  writeln;
  assign(b, 'osoby.bin');  //<-- moze zdecydowalbys sie na ta sama nazwa pliku a nie raz osoba raz osoby
  if not fileexists('osoby.bin') then
    rewrite(b)
  else
    reset(b);
  seek(b, osoby);
  write(b, osoba[osoby + 1]);
  close(b);
  liczenie;
  readln;
end;

//--------------------------------------------//

procedure wyswietlosoby;
var
  i : byte;
begin
  wczytajosobe;
  Write('# Aktualny spis klientow: ');
  if osoby = 0 then
    writeln('Brak klientow !')
  else
  begin
    writeln;
    //i := 0; //<-- to po co?
    for i := 1 to osoby do
    begin
      writeln('Imie: ', osoba[i].imie);
      writeln('Nazwisko: ', osoba[i].nazwisko);
      writeln('ID: ', osoba[i].indeks);
      writeln;

    end;
  end;
  writeln('>> Nacisnij [ENTER] by kontynuowac');
  readln;
  liczenie;
end;

//--------------------------------------------//

procedure usunosobe;
var
  indeks : integer;
  j : integer;
  b : file of t_osoba;
  deleted: Boolean;
begin
  deleted:= False;
  wczytajosobe;
  write(' ID osoby do usuniecia: ');
  readln(indeks);
  assign(b, 'osoby.bin'); //<-- tez blad nazwy pliku

  //tak chyba bardziej po ludzku
  rewrite(b);
  for j := 1 to osoby do
    if indeks <> osoba[j].indeks then
      write(b, osoba[j])
    else
       deleted:= True;
  close(b);

  {for j := 1 to osoby do
    if indeks = osoba[j].indeks then
    begin
      reset(b);
      seek(b, j - 1);
      read(b, osoba[j]);
      seek(b, j - 1);
      write(b, osoba[j]);
      close(b);
    end; }

  if deleted = True then
    writeln('>> Usunieto.')
  else
    writeln('>> NIE ZNALEZIONO osoby o podanym ID: ', indeks) ;
  writeln('>> Nacisnij [ENTER] by kontynuowac');
  readln;
end;