Anonymous

program biblioteka;
    type
        sarasiukas=record
            vardas:string;
            pavarde:string;
            bilieto_nr:integer;
            metai:integer;
            menesis:integer;
            diena:integer;
            knygu_sk:integer;
            leistina_dienu:integer;
        end;
    mas=array[1..100] of sarasiukas;
    var irasas:mas;
        sarasas:text;
        i,n:integer;
begin
    assign(sarasas,'test.dat');
    reset(sarasas);

    n:=0;
    while not eof(sarasas) do
    begin
        n:=n+1;
        {for i:=0 to n do
        begin}
        readln(sarasas, irasas[n].vardas);
        readln(sarasas, irasas[n].pavarde);
        readln(sarasas, irasas[n].bilieto_nr);
        readln(sarasas, irasas[n].metai);
        readln(sarasas, irasas[n].menesis);
        readln(sarasas, irasas[n].diena);
        readln(sarasas, irasas[n].knygu_sk);
        readln(sarasas, irasas[n].leistina_dienu);
    end;
    {end;}

    for i:=1 to n do
    begin
        writeln(irasas[i].vardas);
        writeln(irasas[i].pavarde);
        writeln(irasas[i].bilieto_nr);
        writeln(irasas[i].metai);
        writeln(irasas[i].menesis);
        writeln(irasas[i].diena);
        writeln(irasas[i].knygu_sk);
        writeln(irasas[i].leistina_dienu);
    end;

    close(sarasas);
    readln;
end.