program biblioteka;
type sarasiukas=record
vardas:array[1..20] of char;
pavarde:array[1..20] of char;
bilieto_nr:1..200;
metai:1..maxint;
menesis:1..12;
diena:1..31;
knygu_sk:integer;
leistina_dienu:integer;
end;
mas=array[1..100] of sarasiukas;
var irasas:mas;
sarasas:text;
i,n:integer;
begin
assign(sarasas,'sarasas.txt');
reset(sarasas);
n:=1;
while not eoln do
begin
for i:=0 to n do
begin
read(sarasas,irasas[i].vardas);
read(sarasas,irasas[i].pavarde);
read(sarasas,irasas[i].bilieto_nr);
read(sarasas,irasas[i].metai);
read(sarasas,irasas[i].menesis);
read(sarasas,irasas[i].diena);
read(sarasas,irasas[i].knygu_sk);
read(sarasas,irasas[i].leistina_dienu);
n:=n+1;
end;
end;
for i:=0 to n do
begin
write(irasas[i].vardas);
write(irasas[i].pavarde);
write(irasas[i].bilieto_nr);
write(irasas[i].metai);
write(irasas[i].menesis);
write(irasas[i].diena);
write(irasas[i].knygu_sk);
write(irasas[i].leistina_dienu);
end;
close(sarasas);
readln;
end.