Курсовая работа: Разработка базы данных "Учащиеся"

menuarch:array [1..3] of string[16]=(' ‘®еа ­Ёвм',

' ‡ Јаг§Ёвм',' Ћв¬Ґ­ ');

menufind:array [1..2] of string[16]=(' Ќ ©вЁ',

' Ћв¬Ґ­ ');

menuuser:array [1..2] of string[40]=

(' Ђ¤¬Ё­Ёбва в®а ',

' Џ®«м§®ў ⥫м');

simvV : set of char =

['A'..'Z','a'..'z','0'..'9','_','\',':',

'(',')','!','#','%','^','~','-','''','&','@'];

simvN : set of char = ['A'..'Z','a'..'z','Ђ'..'џ',' '..'п'];

simvD : set of char = ['0'..'9','.'];

simvDIG : set of char = ['0'..'9'];

krifind: array [1..8] of string[8]=('number','sur','name','otch',

'dateburn','surdoc','namedoc','otchdoc');

type

ill = record

number: integer;{­®¬ҐаЄ ав®зЄЁ}

sur: string[20];{д ¬Ё«Ёп}

name: string[20];{Ё¬п}

otch: string[20];{®взҐбвў®}

dateburn: string[20];{¤ в஦¤Ґ­Ёп}

surdoc: string[20];{д ¬Ё«Ёпўа з }

namedoc: string[20];{Ё¬пўа з }

otchdoc: string[20];{®взҐбвў® ўа з }

end;

masi = array[1..illcount] of ill;

fff = file of ill;

max = array[1..3,1..28] of integer;