program databaza;uses crt, moja;type datab=record P:string; M:string; A:string; R:integer; end; pole_datab=array[1..10] of datab;var i,n,poc,poc_h,poc_m,poc_a,poc_r:integer; studuj:pole_datab; stud:pole_datab; volba:char; volba1,volba2:char; volba3,volba4:string; volba5:integer; s_dat,s_dat1:file of pole_datab;