Записи: программа которая заполняет столбцы "налог" и "сумма к выдаче"

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;

program p1;
uses crt;
type T=record
       fio:string;
       nach_s:real;
       nalog:real;
       summa:real;
       end;
var tablica:array [1..3]of T;
    I:integer;
    s:real;
begin
clrscr;
tablica[1].fio:='Ivanov';
tablica[2].fio:='petrov';
tablica[3].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:=tablica[i].nach_s*0.05
  else tablica[i].nalog:=tablica[i].nach_s*0.03;
  tablica[i].summa:=tablica[i].nach_s-tablica[i].nalog;
end;
writeln;
writeln('FIO':10,'Nach_s':10,'nalog ':10,'summa':10);
s:=0;
for i:=1 to 3 do
with tablica[i] do
 begin
  s:=s+summa;
  writeln (fio:10,nach_s:10:2,nalog:10:2,summa:10:2);
 end;
writeln('Obshaya summa=',s:26:2);
readln
end.