Something

program biblioteka;
type sarasiukas=record
vardas:array[1..20] of char;
pavarde:array[1..20] of char;
bilieto_nr:integer;
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);
while not eof do
begin
for i:=0 to 20 do
begin
read(sarasas,irasas);
end;
end;
end.