Вычислить суммарный вес каждой коробки конфет

Program lr15_6;
uses crt;
Type konf=record
nazvan:string[20];
ves,kolvo,veskor:integer;
end;
var N,i,min,veskor,ves,kolvo,imin,v,imax,max,Summ_ves,sv,summ:integer;
    S:array[1..20] of konf;
    begin
    Writeln('Сколько будет названий коробок: ');
    Readln(N);
    for i:=1 to N do
    begin
    writeln('Введите название коробки'); Readln(S[i].nazvan);
    writeln('Вес конфеты в коробке'); Readln(S[i].ves);
    writeln('Количество конфет в коробке'); Readln(S[i].kolvo);
    summ:=S[i].ves*S[i].kolvo;
    Writeln('Суммарный вес коробки: ', summ);
    writeln;
 
    end;
min:=summ;imin:=1;
for i:=1 to n do
begin
   if summ<min then
    begin
     min:=summ;
     imin:=i;
    end;
 end;
 
writeln('Самая легкая коробка ',s[imin].nazvan);
writeln;
 
    end.

uses crt;
const n=3;
type konf=record
      name:string;
      vn,vk:integer;
     end;
var x:array[1..n] of konf;
    i,k,s,min:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Ves(1)konf: ');
   Readln(vn);
   Write(' Kol(1)kor: ');
   Readln(vk);
  end;
Writeln('Table: ');
Writeln('--------------------------------------');
Writeln('|  Name  |  Ves(1)konf  |  Kol(kof)  |');
Writeln('--------------------------------------');
for i:=1 to n do
 Writeln('|',x[i].name:8,'|',x[i].vn:14,'|',x[i].vk:12,'|');
Writeln('--------------------------------------');
Writeln('Ves: ');
Writeln('------------------');
Writeln('|  Name  |  Ves  |');
Writeln('------------------');
min:=32767;
for i:=1 to n do
 begin
  s:=x[i].vk*x[i].vn;
   if s<min then
    min:=s;
  Writeln('|',x[i].name:8,'|',s:7,'|');
 end;
Writeln('------------------');
Writeln('Samay legkaya korobka: ',min);
Readln;
end.