type Row=Record
FIO: String[20];
TEL: String[7]
end;
var str: Row;
var str: Record
FIO: String[20];
TEL: String[7]
end;
str.FIO, str.TEL
with M do OP;
type
RecType= Record
x,y: Word;
ch: Char;
dim: Array[1..3] of Byte
end;
const
Rec: RecType= ( x: 127; y: 255;
ch: 'A';
dim: (2, 4, 8) );