[Pascal] Modificare un campo del record

[tiratardi]

rileggo solo ora il post...

mi scuso per un errore nel nome degli archivi...

...correggo...

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);
      Write(Arc, Record_Arc);
     End;
   End;

Close(Arc);
End.

Teoricamente non cambiava molto.

Grazie...