program Project1;

type
  osoba=record
    nazwisko:String[32];
    wiek:integer;
    pesel:string[11];
  end;

var
  listaosob:array[0..50] of osoba;
  plik: text;
  plik2:text;
  db:file of osoba;
  i:integer;

begin
  listaosob[0].nazwisko:='Kowalski';
  listaosob[0].wiek:=13;
  listaosob[0].pesel:='12345678901';
  listaosob[1].nazwisko:='Nowak';
  listaosob[1].wiek:=23;
  listaosob[1].pesel:='56478912345';
  listaosob[2].nazwisko:='Rabarbar';
  listaosob[2].wiek:=56;
  listaosob[2].pesel:='98765432109';

  assign(db, 'database');
  rewrite(db);
  write(db, listaosob[0]);

  close(db);
end.