записи

[Гульвира]

помогите закончить программу плз

программа которая заполнит столбцы "налог" и "сумма к выдаче ",причем налог высчитывается так:если начисленная сумма больше 10000,то налог составляет 5% от начисленной суммы,а иначе -3% от начисленной суммы.(это я сделала)
а далее программа должна выполнить подсчет общей зарплаты всех работников,подсчет не могу сделать

program p1;
type T=record
fio:string;
nach_s:real;
nalog:real;
summa:real;
end;
var tablica:array [1..3]of T;
I:integer;
k:real;
j:real;
begin
tablica[1].fio:='Ivanov';
tablica[1].fio:='petrov';
tablica[1].fio:='sidorov';
for i:=1 to 3 do begin
writeln('vvedite nach_s',i,'-go);
readln(tablica[i].nach_s);
if tablica[i].nach_s>10000 then tablica[i].nalog:=10000*5/100
else tablica[i].nalog:=10000*3/100;
tablica[i].summa:=tablica[i].nach_s-tablica[i].nalog;
end;
writeln;
writeln('FIO':10,'Nach_s':10,'nalog ':10,'summa':10);
for i:=1 to 3 do begin
with tablica[i] do writeln (fio:10,nach_s:10:2,summa:10:2);
end;