Subj : a problem
To   : All
From : Nenad Mijaljevic
Date : Sun May 27 2001 12:47 am

procedure edit(var a:imenik);
 var imezaedit:string[50];
     p:boolean;
     clan,novi:entry;
 procedure ispis1sloga(lik:entry);
  begin
   with lik do
    begin
     writeln(ime,'   tel.',broj);
     if mob<>'' then writeln('broj mobilnog: ',mob);
     if email<>'' then writeln('email adresa: ',email);
    end;
  end;
 begin
  write('Ime osobe cije podatke zelis da promenis? ');readln(imezaedit);
  assign(a,'telefoni.dat');
  reset(a);
  while not(eof(a) or p) do
   begin
    read(a,clan);
    p:=ististring(imezaedit,clan.ime);
   end;
  if p then
        begin
         seek(a,filepos(a)-1);
         unossloga(novi);
         write(a,novi);
         writeln;
        end
       else
        writeln('Takav unos nije pronadjen...');
  close(a);
 end;

 This is a procedure which should edit a record(clan) of file(imenik) when
 I enter a name of person whos entry should be changed...When I start the
 program and choose to edit file,program terminates before it writes to
 file.This only happens when I try to edit a record,and not when I add a
 new entry to the end of the file.This is the error:

  Runtime error 101 at 0000:0333.

  Please help me! What could be wrong?

  Note: I'm a BEGINNER!

--- 
 * Origin: BBS Politika, Bgd_YU (2:382/133)

.