Программирование задач с записями

Program z;
Type 
tovar = record
n:integer;
naim:string[40];
proiz:string[40];
koli: array [1..20] of integer;
end;
var 
spisok:tovar;
i,j,kol,s:integer;
sr:real;
f:text;
begin
assign (f,'lab111.dat');
rewrite(f);
kol:=0;
with spisok do
for i:=1 to 20 do
begin
n:=i;
writeln('Введите наименование ',i,'');
writeln(f,'Введите наименование ',i,'');
readln(naim);
s:=0;
for j:=1 to 20 do
begin
writeln('Введите производителя: ');
writeln(f,'Введите производителя: ');
readln(proiz[j]);
begin
writeln('Введите количество: ');
writeln(f,'Введите количество: ');
readln(koli);
end;
sr:=s/3;
if sr<3 then 
kol:=kol+1;
writeln(naim, ',средний балл = ');
writeln(f,naim,',средний балл = ');
end;
writeln('Количество производителя = ',kol);
writeln(f,'Количество производителя = ',kol);
readln;
close(f);
end;
end.