Переменные типа запись

Writeln('-------------------------------------------------------------');
Writeln('||  Name(k)  |  Name(str)  |  St(put)  |  St(dor)  |  Sum  ||');
Writeln('-------------------------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].namek:11,'|',x[i].names:13,'|',x[i].stp:11,
         '|',x[i].std:11,'|',x[i].sum:7,'||');
Writeln('-------------------------------------------------------------');

type
 anketa = record
  fam : string[20];
  raion : string[20];
  status : integer;
  vklad : integer;
 end;
var a1:anketa;
    mas : array[1..n] of anketa;
    i : integer;
begin
  clrscr;
 
  for i:=1 to n do
  with mas[i] do
  begin
   write('familiya     ->'); readln(fam);
   write('raion        ->'); readln(raion);
   write('status (0-slughachii, 1-rabochii, 2-krestyanin)->'); readln(status);
   write('summa vklada ->'); readln(vklad);
  end;
  writeln('_____________________________________________________________');
 writeln('||               ||  Familiya  ||   Raion    ||   Status   ||');
 writeln('||---------------------------------------------------------||');
 writeln('||  Chelovek     ||            ||            ||            ||');
 writeln('||---------------------------------------------------------||');
 writeln('||  Summa vklada ||            ||            ||            ||');
 for i:=1 to n do
  with mas[i] do
  begin
   writeln('||               ||',fam:12,'||',raion:12,'||',status:12,'||',vklad:12);
   writeln('_____________________________________________________________');
  end;
  readln;
End.