ZAD: Napisać program realizujący podstawowe operacje (utworzenie pliku, dodanie pozycji, wyświetlenie pozycji i usunięcie pozycji) bazy danych dla rekordu opisującego samochód (marka, model, rocznik, który_właściciel, pojemność, rodzaj_silnika, cena). Powyższe zadanei należy wykonać bazując na poniższym kodzie źródłowym - jednak trzeba go odpowiednio zmodyfikować, tak by dało się w bazie przechowywać dane o samochodach (a nie o osobach), oraz należy operacje wyżej wymienione realizować za pomocą funkcji. !!!POWODZENIA!!! KOD: uses crt; type typ_dane_osobowe=record imie:string[30]; nazwisko:string[40]; telefon:string[20]; rok_ur:integer; end; var plik:File of typ_dane_osobowe; plik_tymcz:File of typ_dane_osobowe; bufor:typ_dane_osobowe; co:char; i,numer:integer; begin while true do begin clrscr; writeln('1 - utworzenie pliku z danymi'); writeln('2 - dodanie pozycji'); writeln('3 - wyswietlenie pozycji'); writeln('4 - usuniecie pozycji'); writeln('5 - koniec pracy'); readln(co); case co of '1':begin assign(plik,'dane.dat'); rewrite(plik); close(plik); end; '2': begin assign(plik,'dane.dat'); filemode:=2; reset(plik); while not eof(plik) do read(plik,bufor); clrscr; writeln('podaj imie'); readln(bufor.imie); writeln('podaj nazwisko'); readln(bufor.nazwisko); writeln('podaj telefon'); readln(bufor.telefon); writeln('podaj rok urodzenia'); readln(bufor.rok_ur); write(plik,bufor); close(plik); writeln('Dane zostaly dodane'); end; '3': begin assign(plik,'dane.dat'); filemode:=0; reset(plik); i:=0; while not eof(plik) do begin i:=i+1; read(plik,bufor); gotoxy(1,wherey); write(i); gotoxy(5,wherey); write(bufor.imie); gotoxy(20,wherey); write(bufor.nazwisko); gotoxy(40,wherey); write(bufor.telefon); gotoxy(55,wherey); writeln(bufor.rok_ur); end; close(plik); readln; end; '4':begin writeln('Podaj numer rekordu, ktory chcesz skasowac'); readln(numer); assign(plik,'dane.dat'); reset(plik); assign(plik_tymcz,'tymcz.dat'); rewrite(plik_tymcz); i:=0; while not eof(plik) do begin i:=i+1; read(plik,bufor); if i<>numer then write(plik_tymcz,bufor); end; close(plik); close(plik_tymcz); assign(plik,'dane.dat'); rewrite(plik); assign(plik_tymcz,'tymcz.dat'); reset(plik_tymcz); while not eof(plik_tymcz) do begin read(plik_tymcz,bufor); write(plik,bufor); end; close(plik); close(plik_tymcz); end; '5': halt; end; end; end.