type
  prec = ^trec;// объявляем тип-указатель на запись 
  trec = record

program pr;
 
type
  avt = record
    fam: string[50];

type
  List = record
    name : string[50];
    familystatus, babies : integer;
    revenue : integer;
  end;
  
var
   person : array [1..100]

program pr;
uses crt;
type
books=record
cipher:integer;
author:string[50];
name:string[50];
publiced:integer;
location:integer;
end;