[Pascal] Modificare un campo del record

[tiratardi]

ho risolto in questo modo...

Begin
 Assign(Arc, '....dat');
 Reset(Arc);
 
 While ( Not Eof (Arc) ) Do
  Begin
   condizioni varie 
   If Record_Arc.estinta='N'
    Then
     Begin
      F_Pos:=FilePos(Arc);
      Record_Arc.estinta:='S';
      Seek(Arc, F_Pos-1 );
      Write(Arc, Record_Arc);
     End;
   End;

Close(Arc);
End.

in questo modo funziona, ma se sapete indicarmi un modo migliore, è ben accetto...

Grazie ancora