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

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.