Листинг модуля описания типов.

Unit Inform;

interface

const

MaxSym = 100;

MaxDer = 1000;

type

Sym = record

Num : Boolean;

Code : Byte;

end;

operat = record

Op : Sym;

Prior : Byte

end;

cMas = array [1..Maxsym] of string[10];

uMas = array [1..MaxSym] of Operat;

sMas = array [1..MaxSym] of Char;

pTree = ^tTree;

tStr = record

S : array [1..Maxder] of Char;

Len : Integer

end;

tTree = record

Code : Integer;

Func,Der : tStr;

left,right : pTree

end;

implementation end.