Курсовая работа: Описание программы "Учебная база данных"

write(f,u); {записываем измененную запись в файл}

next := false; {устанавливаем признак того, что на следующую запись после редактирования переходить не нужно}

end;

4: begin {если пользователь ввел "4", то редактируем год рождения}

writeln('Старое значение поля "Год рождения" - ', u.data);

write('Введите новое значение: ');

readln(n);

u.data := n;

seek(f,k);

write(f,u);

next := false;

end;

5: begin {если пользователь ввел "5", то редактируем вес}

writeln('Старое значение поля "Вес" - ', u.ves);

write('Введите новое значение: ');

readln(n);

u.ves := n;

seek(f,k);

write(f,u);

next := false;

end;

6: begin {если пользователь ввел "6", то редактируем рост}

writeln('Старое значение поля "Рост" - ', u.rost);

write('Введите новое значение: ');

readln(n);

u.rost := n;

seek(f,k);

write(f,u);

next := false;