работа с текстовым файлом Опции

[Igor92]

Создать файл, содержащий требуемую информацию. Написать программу, которая позволит просмотреть содержимое файла и получить требуемый ответ (ответ по желанию пользователя выводится на экран или в файл):
Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превышает среднее число вещей.

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". Помогите найти ошибку.