Jelenia szukasz, a gdzie Twoje wypociny. Co zrobiłeś do tej pory? Pokaż co masz a może ktoś Ci coś podpowie, doradzi, poprawi kawałek kodu... lenistwo ludzkie nie zna granic... Dziwię się że starczyło Ci chęci na zarejestrowanie się na tym forum.

Druga sprawa że wymagania Twojego programu zbliżone są do MS Access. A to nie jest robótka na wieczorek przy kawie i komputerze.
A coś mi się wydaje że nawet jak by ktoś się poświęcił i Ci napisał, to nie byłbyś w stanie nawet dokładnie przejżeć jego kodu, a co dopiero zrozumieć.


Uses Crt;

Type TDane = record
Imie : string[10];
Nazwisko : string[15];
Wiek : Byte;
end;

Var Dane : TDane;
Plik : file of TDane;
NazwaPliku : string;

procedure UtworzPlik;
begin
ClrScr;
Write('Podaj nazwe pliku do utworzenia: ');
Readln(NazwaPliku);
Assign(Plik,NazwaPliku);
Rewrite(Plik);
Close(Plik)
end;

procedure DodajRekord;
begin
ClrScr;
Assign(Plik,NazwaPliku);
Reset(Plik);
Writeln('Dodawanie rekodu do pliku');
Write('Podaj imie :'); Readln(Dane.Imie);
Write('Podaj nazwisko :'); Readln(Dane.Nazwisko);
Write('Podaj wiek :'); Readln(Dane.Wiek);
Write(Plik,Dane);
Close(Plik);
ReadKey
end;

procedure PokazRekord;
begin
ClrScr;
Assign(Plik,NazwaPliku);
Reset(Plik);
Read(Plik,Dane);
Writeln('Dane odczytane z pliku');
Writeln('Imie :',Dane.Imie);
Writeln('Nazwisko :',Dane.Nazwisko);
Writeln('Wiek :',Dane.Wiek);
Close(Plik);
ReadKey
end;

Begin
UtworzPlik;
DodajRekord;
PokazRekord
End.
Żeby nie mówiono że na tym forum są same .......
Specjalnie dla Ciebie zalążek Twojego przyszłego programu, mam nadzieję że go rozwiniesz i pochwalisz się efektami Twojej pracy

Pozdrawiam Stefan Pruszkiewicz