program Baza;
uses crt;
const il=30;
type
Dane_osobowe = Record
Imie:string[15];
Nazwisko:string[25];
Wiek:byte;
Miejscowosc:string[15];
Ulica:string[20];
kod_pocztowy:string[6];
end;
var
spis_osob:array [ 1 .. il ] of Dane_Osobowe;
osobaane_osobowe;
znak:char;
n:integer;

Procedure wybor;
begin
writeln('{1}---Dodaj Osoby-------{1}');
writeln('{2}---Edytuj Osoby------{2}');
writeln('{3}---Usun Osoby--------{3}');
writeln('{4}---Zapisz Baze-------{4}');
writeln('{5}---Odczytaj Baze-----{5}');
writeln('{6}---Zakoncz Program---{6}');
end;

Procedure Dodawanie_osoby(var nowaosobaane_osobowe; var nn:integer);
var i:byte;
begin
ClrScr;
Write('Podaj ile chcesz dodac osob ');
readln(nn);
for i:=1 to nn do
with nowaosoba do
begin
ClrScr;
Write('Imie: ');
readln(imie);
Write('Nazwisko: ');
readln(Nazwisko);
Write('Wiek: ');
readln(Wiek);
Write('Miejscowosc: ');
readln(Miejscowosc);
Write('Ulica: ');
readln(Ulica);
Write('Kod Pocztowy: ');
readln(kod_pocztowy);

end;
end;

Procedure Edycja_osob(nowaosoba:dane_osobowe;nn:integer);
var i:byte;
begin
ClrScr;
readln(nn);
for i:=1 to nn do
begin
write(i,'Nazwisko: ');
writeln(nowaosoba.Nazwisko);
end;
readkey;
end;

Procedure Usun_osoby;


















begin
wybor;
Repeat
znak:=readkey;
Until (znak>='1') AND (znak<='6');
If znak='1' Then Dodawanie_osoby(osoba,n);
if n=n then ClrScr; wybor;
If znak='2' Then Edycja_osob(osoba,n);
If znak='3' Then Usun_osoby;
If znak='4' Then Zapisz_baze;
If znak='5' Then Odczytaj_baze;
until (znak='6');
repeat until keypressed;
end.

Witam wszystkich i pozdrawiam szczegulnie programistów mam pytanko bo nie moge nic wymyslec jak w tym programie mozna edytowac dodane osoby usuwac je a potem je zapisywac w pliku i odczytywac z pliku kompletnie niewiem jak sie za to zabrac prosze pomocy moze ktos bendzie na tyle dobry i mi zrobi ta czesc program blagam musze to miec na jutro a jak bym mial mniejwiecej gotowe to bym sie nauczyl robic takie zeczy.