Pascal, files

[Veselyn]

Задача:
Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны K. Вывести полученный файл на экран.

program xxx;
uses crt;
var f1, f2: file of byte;
i, j, b, t: byte;
n, k :integer;
 begin   randomize;  clrscr;
     assign(f1,'1.bin');
     rewrite(f1);
 write('n:=');
 read(n);
       for i:=1 to n do begin
          seek(f1,i);
          t:=random(10);
             write(f1,t);
             write(t,' ');
       end;
  close(f1);
  reset(f1);
writeln;
  assign(f2,'2.bin');
  rewrite(f2);
i:=0;
j:=0;
       write('k = ');
       readln(k);
            for j:=1 to n do begin
                seek(f1,j);
                read(f1,b);
                       if b mod k = 0 then
                         begin
                            inc(i);
                            seek(f2,i);
                            write(f2,b);
                            write(b,' ');
                         end;
             end;
close(f1);
close(f2);
readln;
end.

Не пишет в файлы. Что я делаю не так? Исправте код.

[Sazary]

У меня все пишет. Все работает.

[Veselyn]

Упс, когда перебирал варианты, забыл сменить розширение файлов на *.ТХТ
Закачал другой паскаль, записало, только в бредовой кодировке

[Sazary]

Сообщение от Veselyn

Закачал другой паскаль, записало, только в бредовой кодировке

Какой еще кодировке? У вас файлы-то не текстовые.

[Stilet]

только в бредовой кодировке

Че это в бредовой? У тебя ж по сути бинарный файл:file of byte;
Ессно там не буквы будут...

[Veselyn]

припустем
n = 5
6 0 3 6 5
k = 2
6 0 6
Результат работы в архиве

[Sazary]

Veselyn, да вы что ж, не читаете того, что вам пишут?

У вас файл не текстовый. Поэтому открывать его в текстовом редакторе бессмысленно.

[Veselyn]

Извните, я только учусь работает