Почему-то программа "вылетает" при вызове процедуры

type
  human = record
    kz: integer;
    fam: string[15];
    gn: string[6];
    police: string[16];
    mark: string[10];
    num: string[10];
  end;
  fhuman = file of human;
 
procedure alg1(var f1, f2: fhuman; zreg: string);//alg 1 vse s nim ok
var
  st: human;
begin
  //reset(f1); 
  //rewrite(f2);
  write('введите регион (3 поледних числа госномера): ');
  readln(zreg);
   reset(f1); 
   rewrite(f2);
  while not eof(f1) do
  begin
    read(f1, st);
    if  pos(zreg, st.gn)= 4 then 
      write(f2, st);
  end;
  close(f1);
  close(f2);
end;
procedure alg2(var f1: fhuman; var f3: text; zm: string);
var
  st: human; fn3: string;
begin
  reset(f1);    
 if fileexists(fn3) then begin
  append (f3);
  seekeof(f3);
  writeln('Информация о владельцах указанной марки');
  write('Марка: ');
  readln(zm);
  while not eof(f1) do
  begin
    read(f1, st);
    if st.mark = zm then
      writeln(f3, st.fam:10, st.num:10);
  end;
  close(f1);
  close(f3);
  end
  else begin
    rewrite(f3);
    writeln('Информация о владельцах указанной марки');
  write('Марка: ');
  readln(zm);
  while not eof(f1) do
  begin
    read(f1, st);
    if st.mark = zm then
      writeln(f3, st.fam:10, st.num:10);
  end;
  close(f1);
  close(f3);
  end;
end;
//основная программа
var
  f1, f2: fhuman; f3: text; 
  fn1, fn2, fn3: string; zm, zreg: string;
  st: human;
begin
  writeln('Введите имя исходного файла');
          readln(fn1);
          if FileExists(fn1) then begin
            assign(f1, fn1);
            writeln(' Введите имя результирующего файла');
            read(fn2); 
            assign(f2, fn2);
 alg1(f1, f2);
          end
          else writeln('Файл с таким именем не существует'); 
        end;
writeln('Введите имя исходного файла');
          readln(fn1);
          if FileExists(fn1) then begin
            assign(f1, fn1);
            writeln('Введите имя результирующего файла');
            readln(fn3); assign(f3, fn3);
            alg2(f1, f3, zm);
          end
          else writeln('Файл с таким именем не существует');
         
        end;