Дан список коробок конфет, содержащий название коробки, вес одной конфеты в коробке, количество конфет в коробке. Вычислить суммарный вес каждой коробки. Найти самую легкую коробку — Pascal(Паскаль)

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.