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) );

—одержание

    ”чебник по ¤зыку Pascal          Ћабораторные работы по программированию          —правочник