Реферат: Курсовая работа по базе данных СУБД

begin

writeln('Задайте имя файла');

readln(filename);

assign(f,filename);

reset(f);

with st do

begin write('Введите фамилию клиента: ');readln(str);

x:=0;

while not eof(f) do

begin

read(f,st);

if st.Sname_Hozaina=str then

begin

writeln('Введите новые данные о клиенте: ');

write('Фамилия хозяина: '); readln(st.Sname_Hozaina);

write('Имя хозяина: '); readln(st.Name_Hozaina);

write('марка машины:'); readln(st.markauto);

write('модель машины:'); readln(st.model_auto);

write('тип кузова:'); readln(st.tip_kyzova);

write('номер машины:'); readln(st.nomer_auto);

write('регион:'); readln(st.region);

write('год выпуска:'); readln(st.god_vipyska);

write('цвет: '); readln(st.color);

Sname_Hozaina2:=Sname_Hozaina; markauto2:=markauto;

Name_Hozaina2:=Name_Hozaina; color2:=color;

Nomer_auto2:=Nomer_auto; model_auto2:=model_auto;

God_vipyska2:=God_vipyska; tip_kyzova2:=tip_kyzova;

region2:=region;

seek(f,filepos(f)-1);