Подпрограммы,массивы,текстовые файлы(!покажите ошибки!).

program Project2;
 
{$APPTYPE CONSOLE}
{
Записать в файл f   N натуральных чисел. Получить в другом файле все компоненты файла f, 
кроме тех, которые кратны К. Вывести полученный файл на печать.
}
uses
   SysUtils;
var f,g:text;
    N,a,i,k,j:integer;
begin
assign(f,'file1.txt');
rewrite(f);
assign(g,'file2.txt');
rewrite(g);
write('Vvedite kolichestvo chisel N=');
readln(N);
write('k=');
readln(k);//вводим число
procedure zap (var f:text; N:integer);
var i,a:integer;
begin
for i:=1 to N do
  begin
    readln(a); //читаем числа
    write(f,a,' '); //записываем в файл
   end;
end;
procedure vivod (var g:text; f:text; N:integer; k:integer);
var i,j,a:integer;
begin
reset(f);//открываем файл для чтения
i:=0;j:=0;
while not eof(f)and(i<N) do//пока не конец файла и не кончились числа
  begin
    i:=i+1;
    read(f,a);//читаем числа
    if a mod k<>0 then
      begin
       write(g,a,' ');  //если не кратные, записываем в новый файл
       j:=j+1; //считаем
      end;
  end;
reset(g);//открываем файл для чтения
Writeln('Fail rezultata G:');
i:=0;
while not eof(f)and(i<j) do //выводим содержимое файла
  begin
    i:=i+1;
    read(g,a);
    write(a,' ');
  end;
end;
zap(f,N);
vivod(g,f,N,k);
readln;
end.

while not eof(f)and(i<j) do 
  begin
    i:=i+1;
    read(g,a);
    write(a,' ');
  end;
end;

uses
crt;
var f,g:text;
   N,k,j:integer;
procedure zap (var f:text; N:integer);
var i,a:integer;
  begin
    for i:=1 to N do
      begin
        readln(a);
        write(f,' ',a);
      end;
  end;
procedure vivod (var g,f:text;  N:integer; k:integer;var j:integer);
{значение параметра j надо передать в программу, иначе что-нибудь типа ноля в итоге выведет}
var i,a:integer;
begin
  reset(f);
  i:=0;
  while not eof(f)and(i<N) do
    begin
      i:=i+1;
      read(f,a);
      if a mod k<>0 then
        begin
          write(g,a,' ');
          j:=j+1;
        end;
    end;
  Writeln('Fail rezultata G:');
  i:=0;
  reset(g);{ну а это главная ошибка, файл то открыть надо}
  while not eof(g)and(i<j) do
    begin
      i:=i+1;
      read(g,a);
      write(a,' ');
    end;
end;
begin
clrscr;
  assign(f,'file1.txt');
    rewrite(f);
  assign(g,'file2.txt');
    rewrite(g);
  write('Vvedite kolichestvo chisel N=');
    readln(N);
  write('k=');
    readln(k);
  zap(f,N);
  vivod(g,f,N,k,j);
    close(f);
    close(g);
readln;
end.

while not eof(g)and(i<j) do // пока не конец файла и не кончились числа
      begin
      i:=i+1;
      read(g,a); //читаем из файла
      write(a,' '); //пеишем на экран
    end;

rewrite(g);  //создаем файл

program Project3;
 
{$APPTYPE CONSOLE}
{
Записать в файл f   N натуральных чисел. Получить в другом файле все компоненты файла f,
кроме тех, которые кратны К. Вывести полученный файл на печать.
}
uses
  SysUtils;
 
var f,g:text;
   N,k:integer;
procedure zap (var f:text; N:integer);  //процедура записи в файл
var i,a:integer;
  begin
    for i:=1 to N do  //до заданного количества чисел
      begin
        readln(a); //читаем числа
        write(f,a,' '); //записываем в файл
      end;
  end;
procedure vivod (var g,f:text;  N:integer; k:integer);//процедура вывода на экран
var i,j,a:integer;
begin
  reset(f);//открываем файл для чтения
  i:=0;j:=0;
  while not eof(f)and(i<N) do//пока не конец файла и не кончились числа
    begin
      i:=i+1;
      read(f,a);//читаем числа
      if a mod k<>0 then  //проверяем кратность
        begin
          write(g,a,' ');  //если не кратные, записываем в новый файл
          j:=j+1; //считаем
        end;
    end;
  Writeln('Fail rezultata:');
  i:=0;
  while not eof(g)and(i<j) do // пока не конец файла и не кончились числа
      begin
      i:=i+1;
      read(g,a); //читаем из файла
      write(a,' '); //пеишем на экран
    end;
end;
begin
  assign(f,'file2.txt');//связываем файл с переменной
    rewrite(f);   //создаем файл
  assign(g,'file2.txt'); //связываем файл с переменной
    rewrite(g);  //создаем файл
  write('Vvedite kolichestvo chisel N=');
    readln(N);
  write('Vvedite chislo dla opredelenia kratnosti k=');
    readln(k);//вводим числа
  zap(f,N);     //запускаем процедуры
  vivod(g,f,N,k);
    close(f); //закрываем файлы
    close(g);
readln;
end.

 assign(f,'file2.txt');//связываем файл с переменной
    rewrite(f);   //создаем файл
  assign(g,'file2.txt'); //связываем файл с переменной
    rewrite(g);  //создаем файл