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

program test_text;
uses Crt;
const max=10;
var f: text;
    n,s,a,p,t: string;
    i: integer;
    files: array[1..max] of string := ('1.txt', '2.txt', '3.txt', '4.txt', '5.txt','6.txt','7.txt','8.txt','9.txt','10.txt');
procedure Prev();
 
begin
    i:=i-1;
    Assign(f, files[i]);
    Reset(f);
        while not eof (f) do
        begin
            readln(f, n);
            readln(f, s);
            readln(f, a);
            readln(f, p);
            readln(f, t);
        end;
    Close(f);
    writeln(n);
    writeln(s);
    writeln(a);
    writeln(p);
    writeln(t);
    var key := Readkey();
    case key of 
        #49 : Prev;
        #50 : Edit;
        #51 : Remove;
        #52 : Next;
    end;
end;
procedure Edit();
begin
    Assign(f, files[i]);
    Rewrite(f);
        while not eof (f) do
        begin
            writeln(f, 'none');
            writeln(f, 'none');
            writeln(f, 'none');
            writeln(f, 'none');
            writeln(f, 'none');
        end;
    Close(f);
    writeln(n);
    writeln(s);
    writeln(a);
    writeln(p);
    writeln(t);
end;
procedure Remove();
begin
    i:=i-1;
    Assign(f, files[i]);
    Reset(f);
        while not eof (f) do
        begin
            readln(f, n);
            readln(f, s);
            readln(f, a);
            readln(f, p);
            readln(f, t);
        end;
    Close(f);
    writeln(n);
    writeln(s);
    writeln(a);
    writeln(p);
    writeln(t);
end;
procedure Next();
begin
    i:=i+1;
    Assign(f, files[i]);
    Reset(f);
        while not eof (f) do
        begin
            readln(f, n);
            readln(f, s);
            readln(f, a);
            readln(f, p);
            readln(f, t);
        end;
    Close(f);
    writeln(n);
    writeln(s);
    writeln(a);
    writeln(p);
    writeln(t);
    var key := Readkey();
    case key of 
        #49 : Prev;
        #50 : Edit;
        #51 : Remove;
        #52 : Next;
    end;
end;
 
procedure Look();
begin
    i:=1;
    Assign(f, files[i]);
    Reset(f);
        while not eof (f) do
        begin
            readln(f, n);
            readln(f, s);
            readln(f, a);
            readln(f, p);
            readln(f, t);
        end;
    Close(f);
    writeln(n);
    writeln(s);
    writeln(a);
    writeln(p);
    writeln(t);
    writeln('1-prev, 2-edit, 3-remove, 4-next');
    var key := Readkey();
    case key of 
        #49 : Prev;
        #50 : Edit;
        #51 : Remove;
        #52 : Next;
    end;
end;
 
begin
    Look();
end.

var f: text;
    n,s,a,p,t: string;
    i: integer;
    files: array[1..max] of string := ('1.txt', '2.txt', '3.txt', '4.txt', '5.txt','6.txt','7.txt','8.txt','9.txt','10.txt');
procedure Next(); forward;
procedure Edit(); forward;
procedure Remove();forward;
procedure Prev(); forward;