Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превышает среднее число вещей.
program bagaj;
var f1,f2:text;
n,i,l,j:integer;
x,s,o:longint;
m:real;
begin
assign(f1,'compin.txt');
assign(f2,'compout.txt');
reset(f1);
s:=0; {>2}
l:=0; {summa}
while Not eof (f1) do
begin
read(f1,x);
l:=l+x;
if (x>=2) then s:=s+1;
end;
close(f1);
end.
reset(f1);
read(f1,x);
n:=0;
begin
readln(f1,x);
if (x>=0) then n:=n+1;
end;
close(f1);
m:=l/n;
reset(f1);
read(f1,x);
j:=0;
while not eof(f1) do
begin
readln(f1,x);
if (x>=m) then j:=j+1;
end;
close(f1);
readln(o);
if o=1 then
begin
writeln('kol-vo passajirov s >2 - ',s);
writeln('vsego veschei - ',l);
writeln('srednee kol-vo veschei - ',m:0:2);
writeln('kol-vo passajirov u kotorih kol-vo veschei previshrt srednee znachenie - ',j);
end
else
rewrite(f2);
writeln(f2,'kol-vo passajirov s >2 - ',s);
writeln(f2,'vsego veschei - ',l);
writeln(f2,'srednee kol-vo veschei - ',m:0:2);
writeln(f2,'kol-vo passajirov u kotorih kol-vo veschei previshrt srednee znachenie - ',j);
close(f2);
end.
Компиляцию проходит успешно, но при запуске программы выдаёт ошибку "exit code 2". Помогите найти ошибку.
