Co mozna byłoby zedytować w tym aby było zgodne z tym menu?
Program plik_zdefiniowany;
Uses crt;
type osoba = record
imie:string[20];
nazwisko:string[25];
rok_urodzenia,id:integer;
end;
var
pracownik,wyjscie
soba;
plik: file of osoba;
odp:char;
numer,i,wybor:integer;
BEGIN
clrscr;
writeln('.::*MENU BAZY DANYCH*::.');
writeln('1-wpisz do bazy');
writeln('2-usun z bazy rekord');
writeln('3-wyswietl zawartosc okreslonego rekordu');
writeln('4-wyswietl cala baze');
writeln('5-usun baze');
writeln('6-wyszukaj w bazie');
readln(wybor);
// zastosowac pętle CASE
assign(plik, 'D:\osoby.txt');
rewrite(plik);
numer:=1;
writeln('czy dopisac osobe - t?');
readln(odp);
while odp='t' do
begin
writeln('na ktorej pozycji'); readln(i);
seek(plik,i);
write('podaj imie: '); readln(pracownik.imie);
write('podaj nazwisko: '); readln(pracownik.nazwisko);
write('podaj rok urodzenia: '); readln(pracownik.rok_urodzenia);
pracownik.id:=numer;
numer:=numer+1;
write(plik,pracownik);
writeln('czy dopisac osobe - t?');
readln(odp);
end;
writeln('Moi pracownicy');
seek(plik,0);
for i:=0 to filesize(plik)-1 do
begin
read(plik,wyjscie);
writeln(wyjscie.imie);
writeln(wyjscie.nazwisko);
writeln(wyjscie.rok_urodzenia);
writeln(wyjscie.id);
end;
close(plik);
readln;
END.