(* dict.inc -- заголовочный файл для writedict и readdict *)
uses stdio;

 (* Структура dict_elem элемент данных *)
 (* (соответствует полю базы данных) *)
type dict_elem=record
  d_name:array [0..14] of char;		(* имя элемента словаря *)
  d_start:integer;	        	(* начальное положение записи *)
  d_length:integer;		        (* длина поля *)
  d_type:integer;			(* обозначает тип данных *)
end;
pdict_elem=^dict_elem;

const
  ERROR=-1;
  SUCCESS=0;
