Как объявить процедуру

PROCEDURE ADD(out_file); 
//файл заранее объявлен, ERROR 86: ":" expected
PROCEDURE ADD(out_file:file of symbols); 
//Тип symbols объявлен выше, Files must be var parameters
PROCEDURE ADD(var f:file of symbols); 
//Error 89: ")" expected (указатель стоит после file)

//где-то сверху
type myfile = file of symbols;
...
var f : myfile;
...
PROCEDURE ADD(var f:myfile); 
...

PROGRAM XPrint(INPUT, OUTPUT);
USES crt;
TYPE
    Symbol = array[0..25] of char;
VAR
   out_file : file of Symbol;
   i,j : integer;
   string1, name_file : string;
   Symb : Symbol;
 
PROCEDURE ADD(var out_file : file of Symbol);
...

PROGRAM XPrint(INPUT, OUTPUT);
USES crt;
TYPE
    Symbol = array[0..25] of char;
VAR
   out_file : file of Symbol;
   i,j : integer;
   string1, name_file : string;
   Symb : Symbol;
 
PROCEDURE ADD(???);
    VAR
    a,b,c,d:integer;
    st1:string;
    S:Symbol;
  BEGIN
    WRITE('Input name: ');
    READLN(S[0]);
    WRITE('Input matrix: ');
    FOR a:=1 to 25 DO
      BEGIN
            READ(S[a]);
        WRITE(' ');
      END;
    WRITE(out_file,S);
    WRITE('Add new ? (1/0): ');
    READLN(b);
    IF b = 1
    THEN
        ADD(???);
 
BEGIN
     CLRSCR;
     WRITE('name file: ');
     READLN(name_file);
     ASSIGN(out_file, name_file);
     REWRITE(out_file);
     WRITE('Add symbol ? (1/0): ');
     READLN(i);
         IF i = 1
     THEN
            ADD();
     CLOSE(out_file);
     READLN
END.

PROGRAM XPrint(INPUT, OUTPUT);
USES crt;
TYPE
    Symbol = array[0..25] of char;
 
type myfile = file of Symbol;
VAR
   out_file : myfile;
   i,j : integer;
   string1, name_file : string;
   Symb : Symbol;
 
PROCEDURE ADD(var out_file : myfile);
    VAR
    a,b,c,d:integer;
    st1:string;
    S:Symbol;
  BEGIN
    WRITE('Input name: ');
    READLN(S[0]);
    WRITE('Input matrix: ');
    FOR a:=1 to 25 DO
      BEGIN
            READ(S[a]);
        WRITE(' ');
      END;
    WRITE(out_file,S);
    WRITE('Add new ? (1/0): ');
    READLN(b);
    IF b = 1
    THEN
        ADD(???);
 
BEGIN
     CLRSCR;
     WRITE('name file: ');
     READLN(name_file);
     ASSIGN(out_file, name_file);
     REWRITE(out_file);
     WRITE('Add symbol ? (1/0): ');
     READLN(i);
         IF i = 1
     THEN
            ADD();
     CLOSE(out_file);
     READLN
END.