Файл последовательного доступа., Найти ошибку!! Опции

[fdka]

Полностью сделанное задание вроде и написано всё правильно, на экран выводит, что нужно, а в текстовый файл, что в первый, что во второй выводит какуюто лабуду. Кто понимает помогите разобраться.

Заполнить файл последовательного доступа F целыми числами, полученными с помощью гениратора случайных чисел. Получить в файл G те компоненты файла F которые являются четными.

var
    f, g:file of byte;
    i, n, c:byte;
begin
  assignfile(f,'f.txt');
  rewrite(f);
  randomize;
    n:=5;
  for i:=1 to n do
      begin
        c:=random(200);
        write(f, c);
      end;
        begin
  closefile(f);
  reset(f);
  assignfile(g, 'g.txt');
  rewrite(g);
         end;
  while not eof(f) do
     begin
       read(f, n);
        if n mod 2 = 0 then write(g, n);
     end;
        Begin
       closefile(g);
       reset(g);
        end;
    while not eof(g) do
      begin
       read(g, n);
       write(n:4);
      end;
       readln;
end.

[klem4]

выводит какуюто лабуду

Тоесть ? Программа вроде без ошибок отрабатывает, выводит что надо, только не забывай закрывать файл g.

Или ты пытаешься блокнотом смотреть файл ? Тогда понятно ... онже у тебя типизированный, так и должно быть.

[fdka]

спасибо, я забыл и смотрел блокнотом