Filush Baza

{////////////////////////Filush - Klasa 1r Baza Danych////////////////////}

program Baza;


uses crt;

type

TDane=Record
 Imie : String;
 Nazwisko : String;
 Wiek : byte;
 end;

 var
Base : Array of  TDane;
buffer : Tdane;
Procedure SaveRecord(Lines:Tdane;FName:string);
var
Plik : Text;
buffer :string;
begin
Assign(Plik,FName+'.txt');
Rewrite(Plik);
Writeln(Plik,lines.Imie);
Writeln(Plik,lines.Nazwisko);
Writeln(Plik,lines.Wiek);
Close(Plik);
{zapis rekordu}
end;

Procedure CleanBuffer;
begin
buffer.Imie :='';
Buffer.Nazwisko:='';
Buffer.Wiek:=0;
end;

Procedure CreateBuffer;

begin
 Writeln('Podaj Imie : ');
 readln(buffer.imie);
 Writeln('Podaj Nazwisko :');
 readln(buffer.Nazwisko);
 Writeln('Podaj WIek :');
 readln(buffer.Wiek);
end;

 Procedure AddNew(buff:Tdane);
 var
 indx, curlen : integer;
 buffer : tdane;
 begin
 curlen :=high(base)+1;
 SetLength(Base,Curlen);
indx:=high(base);
buffer :=buff;
base[indx]:=buffer;
saverecord(buff,buff.Imie);
cleanbuffer;
end;

Procedure LoadRecord;
var
Plik : Text;
s : string;
begin
assign(Plik,'4.txt');
reset(plik);
readln(plik,s);
writeln(s);
readln(plik,s);
writeln(s);
readln(plik,s);
writeln(s);
close(plik);
readln;
end;

begin
clrscr;
setlength(base,1);
loadrecord;
readln;

end.