Не записывается массив в файл - PascalABC.NET

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

ЗАДАНИЕ: Дан одномерный массив целых чисел из 10 элементов. При запуске программы выводится меню: 1 - заполнить массив случайными числами, 2- ввести элементы массива с клавиатуры, 3-найти минимальный элемент, 4 - записать элементы массива и минимальный элемент в файл. Примечание: файл должен быть типизированным. ПРОБЛЕМА: Массив и минимальный элемент в файл не записываются, точнее записываются какие-то странные символы. Файл открываю через блокнот. Помогите решить проблему КОД ПРОГРАММЫ:

uses 
crt;
 
type
  mas = array[1..10] of integer;

var
  filename:file of integer;
  b: boolean;
  a:mas;
  
procedure rand;
var
  i:byte;
begin
    for i:=1 to 10 do
     begin
      a[i]:= random(30);
      writeln(a[i]);
     end;
      b := true;
    readln
end;
 
procedure klava;
var
  i:byte;
begin
    for i:=1 to 10 do 
    begin
     write('a[', i ,']=');
      read(a[i]); 
    end;
  b := true;
  readln;
end;

function min:integer;
var
 i,m:integer;
begin
  if not b then
    begin
      write('Массив еще не создан, вернитесь к пункту 1 или 2');
      readln;
      readln;
     exit
    end;
  m:=a[1];
    for i:=2 to 10 do
     begin
       if a[i]<m then m:=a[i];
     end;
 min:=m;
end;

procedure zap;
var
 i:byte;
  
begin
   if not b then
     begin
       write('Массив еще не создан, вернитесь к пункту 1 или 2');
       readln;
       readln;
      exit
     end;
     
  assign(filename, 'a.dat');
  rewrite(filename);
   for i:=1 to 10 do
    begin
     write(filename,a[i]);
     write(min);
    end;  
 close(filename);
 readln
end;
 
var
  
  w:char;

begin
    b := false;
  repeat
    clrscr;
    writeln('Выберите действие');
    writeln('1-Заполнить массив случайными числами');
    writeln('2-Ввести элементы массива с клавиатуры');
    writeln('3-Найти минимальный элемент ');
    writeln('4-Записать элементы и минимальный в файл');
    writeln('ВЫХОД');
    read(w);
     case w of
      '1': rand;
      '2': klava;
      '3': min;
      '4': zap;
     else exit; 
    end;
  until not (w in ['1'..'4'])
end.

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!

Решение задачи: «Не записывается массив в файл»

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

var F : File of Integer;
    N : Integer;
begin
  Assign(F, 'a.dat');
  Reset(F);
  while Not EOF(F) do
    begin
      Read(F, N);
      WriteLn(N);
    end;
  Close(F);
end.

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

Объявляются две переменные: F и N.
Переменной F присваивается файл 'a.dat'.
Переменной N присваивается значение 0.
Открывается файл 'a.dat' для чтения и записи.
Запускается цикл while, который выполняется до тех пор, пока не достигнут конец файла (EOF).
Внутри цикла считывается число из файла в переменную N.
Число N выводится в консоль.
Закрывается файл 'a.dat'.