Ошибка при чтении файла - Pascal (92419)

Формулировка задачи:

Создать файл F целого типа. Получить два файла: F1, F2. В файл F1 последовательно писать четные числа, в файл F2 – все нечетные числа файла F . В файле F2 элементы кратные трём или пяти уменьшить на единицу. Файлы F,F1,F2 распечатать

program third_second;
var b,i,c,q    :integer;
F,F1,F2:file of integer;
begin
assign(F,'F.mp3');
writeLn('ГўГўГҐГ¤ГЁГІГҐ ГЇГҐГ°ГўГіГѕ ГЄГ®Г¬ГЇГ®Г*ГҐГ*ГІГі ГґГ*Г©Г«Г* f (ГЇГ°ГЁГ§Г*Г*ГЄ ГЄГ®Г*Г¶Г* ГўГўГ®Г¤Г*: 555)');
rewrite(F);
readLn(b);
i:=1;
while b<>555 do
begin
write(F,b);
inc(i);
writeLn('ГўГўГҐГ¤ГЁГІГҐ ',i,'-ГіГѕ ГЄГ®Г¬ГЇГ®Г*ГҐГ*ГІГі ГґГ*Г©Г«Г* f');
readLn(b);
end;
reset(f);
writeLn('ГґГ*Г©Г« F Г¤Г® ГЁГ§Г¬ГҐГ*ГҐГ*ГЁГї:');
while not EOF(F) do
begin
read(F,b);
write(b:5);
end;
 
writeln;
assign(F1,'F1.mp3');
rewrite(F1);
writeLn('ГґГ*Г©Г« F1:');
while not EOF(F) do
begin
read(F,b);
if b mod 2 = 0 then
read(F1,b);
write(F1,b);
end;

writeln;
assign(F2,'F2.mp3');
rewrite(F2);
reset(F);
writeLn('ГґГ*Г©Г« F2:');
while not EOF(F) do
begin
if b mod 2 = 1 then
if (b mod 3 = 0) or (b mod 5 = 0) then
b:=b-1;
read(F,b);
write(F2,b);
end;
close(F1);
close(F2);
close(F);
end.

скажите пожалуйста мальчики в чём ошибка!

Решение задачи: «Ошибка при чтении файла»

Листинг программы

program third_second;
var b,i,c,q :integer;
F,F1,F2:file of integer;
begin
writeLn('??????? ?????? ?????????? ????? f (??????? ????? ?????: 555)');
readLn(b);
 
assign(F,'F.mp3');
rewrite(F);
i:=1;
while b<>555 do
begin
write(F,b);
inc(i);
writeLn('??????? ',i,'-?? ?????????? ????? f');
readLn(b);
end;
 
close(f);
 
assign(F,'F.mp3');
reset(f);
 
writeln;
assign(F1,'F1.mp3');
rewrite(F1);
assign(F2,'F2.mp3');
rewrite(F2);
while not EOF(F) do
begin
read(F,b);
if b mod 2 = 0 then write(F1,b);
if b mod 2 = 1 then
if (b mod 3 = 0) or (b mod 5 = 0) then
begin
b:=b-1;
write(F2,b);
end;
end;
 
 
close(F);
close(F1);
close(F2);
 
assign(F,'F.mp3');
assign(F1,'F1.mp3');
assign(F2,'F2.mp3');
reset(F);
reset(F1);
reset(F2);
 
WriteLn('Jelementy F: ');
while not EOF(F) do
begin
read(F,b);
write(b:5);
end;
 
writeLn;
writeLn('???? F1 ?? ?????????:');
while not EOF(F1) do
begin
read(F1,b);
write(b:5);
end;
 
WriteLn;
writeLn('???? F2 ?? ?????????:');
while not EOF(F2) do
begin
read(F2,b);
write(b:5);
end;
ReadLn;
 
close(F);
close(F1);
close(F2);
 
end.

Объяснение кода листинга программы

Объявление переменных: b, i, c, q (интервалы, возможно, некорректно переведены)
Открытие файлов F, F1, F2 для записи
Чтение числа из файла и запись его в файл F
Написание сообщения с вопросом для пользователя
Чтение числа из файла и запись его в файл F
Проверка числа на четность и запись его в файл F1 или F2
Проверка числа на делимость на 3 или 5 и уменьшение его на единицу при необходимости
Закрытие файлов F, F1, F2
Открытие файлов F, F1, F2
Чтение чисел из файла F и их вывод с шагом 5
Чтение чисел из файла F1 и их вывод с шагом 5
Чтение чисел из файла F2 и их вывод с шагом 5
Закрытие файлов F, F1, F2
Чтение чисел из файла F и их вывод с шагом 5
Чтение чисел из файла F1 и их вывод с шагом 5
Чтение чисел из файла F2 и их вывод с шагом 5
Закрытие файлов F, F1, F2
Чтение чисел из файла F и их вывод с шагом 5
Чтение чисел из файла F1 и их вывод с шагом 5
Чтение чисел из файла F2 и их вывод с шагом 5