переменные типа запись, помогите решить Опции

[lvv]

Здравствуйте, помогите решить вот такую задачку: Дана информация о вкладчиках в сберкассы. Запись имеет вид: фамилия, район, социальное положение (служащий, рабочий, крестьянин) и величина вклада. Вывести данные о том сколько среди вкладчиков служащих, рабочих, крестьян и какова величина вклада каждой из указанных групп. Результаты представить в табличной форме.
я написал ввод и вывод данных, только не поуму как мне сложить вклады и код статуса перевезти в название и вывести его в таблицу, Помогите,пожалуйста! Вот мой код:

 anketa = record
  fam : string[20];
  raion : string[20];
  status : integer;
  vklad : integer;
 end;
var a1:anketa;
    mas : array[1..n] of anketa;
    i,S : 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;
  S:=
  writeln('____________________________________________________________');
 writeln('||               || slughachii ||  rabochii  || krestyanin ||');
 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.

Сообщение отредактировано: lvv - 9.05.2010 9:11

[Ozzя]

sum:=0;
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);
   sum:=sum+ vklad;
  end;