Počítačové zadanie: Databáza (programované v pascale)

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;