Багаж пассажира характеризуется количеством и общим весомвещей. Имеется информация о багаже нескольких пассажиров — соответствующие пары чисел. Подсчитать общее количество вещей и выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом не менее 30 кг — Pascal(Паскаль)

uses crt;
const n=5;
type rec=record
      kol:integer;
      ves:real;
     end;
var x:array[1..n] of rec;
    i,k:integer;
    sum:real;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Writeln(i,': ');
   Write(' Kol(veshey): ');
   Readln(kol);
   Write(' Ves(veshey): ');
   Readln(ves);
  end;
Writeln('Table: ');
Writeln('-----------------------');
Writeln('|| N |  Kol  |  Ves  ||');
Writeln('-----------------------');
for i:=1 to n do
 Writeln('|| ',i,' |',x[i].kol:7,'|',x[i].ves:7:1,'||');
Writeln('-----------------------');
sum:=0;
for i:=1 to n do
 sum:=sum+x[i].ves;
Writeln('Sum(veshey): ',sum:0:2,' kg.');
for i:=1 to n do
 if (x[i].kol=1) and (x[i].ves>30) then
  Writeln('Pass: ',i,' ');
Readln;
end.