Пример 2. Пусть задан файл F, каждый элемент которого представляет собой запись, содержащую фамилию студента и его возраст. Необходимо обновить данные этого файла путем увеличения возраста всех студентов на единицу.

program Cor; type Zap=record Fio: string[30]; Voz: 0.. 99; end;

var F: file of Zap; Z: Zap; I: integer; begin

Assign(F,’A.File'); Reset(F); I:=0; while not Eof(F) do

begin Read(F,Z); Z.Voz:=Z.Voz+l; Seek(F,I); Write(F.Z); I:=1+1;

end;

Close(F);

end.