Почему не подсчитывает программа?

[Руслан56]

Почему в процедуре подсчет результат заполняется нулями?

program pro1;
uses ob,obrabotki;
var sd:product;
begin
vvod(sd);
vivod(sd);
podschet(sd);
end.

unit obrabotki;
interface
uses ob;
procedure vvod(var sd:product);
procedure vivod(var sd:product);
procedure podschet(var sd:product);
implementation

procedure vvod(var Sd:product);
var i:integer;
begin
     for i:=1 to maxk do
     begin
     Sd[i].name:=(i);
     Sd[i].kol:=random(6) + 5;
     Sd[i].Sebest:= random(500)+100;
     Sd[i].cena:=Sd[i].sebest+random(100);
     Sd[i].work:=random(5)+5;
     end;
end;


procedure vivod(var Sd:product);
var i:integer;
begin
writeln('--------------------------------------------');
writeln('|','Товар':5,'|','Eдиницы':5,'|','Себестоимость':10,'|','Цена':5,'|','Рабочие':8,'|','Доход':5,'|','Производительность','|');
writeln('--------------------------------------------');
for i:=1 to maxk do writeln('|',sd[i].name:4, '', sd[i].kol:6, '      ', sd[i].sebest, '           ', sd[i].cena, '      ', sd[i].work,'  |' ,sd[i].proiz);
writeln('--------------------------------------------');

end;
procedure podschet(var sd:product);
var i:integer;
begin
for i:=1 to maxk do begin
sd[i].dohod:=sd[i].kol * sd[i].cena;
sd[i].proiz:=sd[i].dohod / sd[i].work;
end;
end;

end.

unit ob;
interface
const maxk=20;
type
tovar = record
name : integer;
kol  : integer;
sebest:real;
cena :real;
work :integer;
dohod:real;
proiz:real;
end;


type
 product = array[1..maxk] of tovar;
 implementation
 end.

Паскаль

[Stilet]

Вместо

vivod(sd);podschet(sd);

пиши

podschet(sd);vivod(sd);

[Руслан56]

Спасибо, понял