Godvard, Создавай файл записей:
Code
type tp = record
family: string[60];
name: string[60];
otche: string[60];
number: integer;
summ: Real;
Я так понимаю, если всего вкладчиков 10, а сумма дохода составляет 5 000, то каждому достанется по +500? Типа делим на количество и прибавляем последовательно к каждому? Так?
