Exited with exitcode=216, problem with my program.

program MyProgr;
    
    var
            F: text;
            t:Textfile;
            a,count:array of Integer;
            b:Integer;
            i,int:Integer;
            countnums:Integer;
            n,m:String;
            lin,nums:Integer;
            Small,Big:Integer;
    
    procedure DoWhatEver(S: string);
    begin
    val(s,int);
    Write(s,'     ');
    for i:=Small to Big do
    if (a[i]=int) then
    count[i]:=count[i]+1;
    end;
    
    procedure FilltheArray;
    begin
    for i:=Small to Big do
    a[i]:=i+1 ;
    end;
    
    
    
    
    
    
    
    procedure ProcessString;
    var
            Strng, S: string;
            Last, P: integer;
    begin
            readln(F,Strng);
            Last:=0;
            while Last<length(Strng) do
            begin
                    P:=Last+1;
                    while (P<=length(Strng)) and (Strng[P]<>' ') do
                            inc(P);
                    S:=copy(Strng,Last+1,(P-Last-1));
                    DoWhatEver(S);
                    Last:=P;
            end
    end;
    
    
    
    
    
    procedure ProcessStringA;
    var
            Strng: string;
            Last, P: integer;
    begin
            readln(F,Strng);
            Last:=0;
            while Last<length(Strng) do
            begin
                    P:=Last+1;
                    while (P<=length(Strng)) and (Strng[P]<>' ') do
                            inc(P);
                    n:=copy(Strng,Last+1,(P-Last-1));
                    Val(n,nums);
                    Last:=P;
            end
    end;
    
    
    
    
    
    
    
    procedure ProcessStringB;
    var
            Strng: string;
            Last, P: integer;
    begin
            readln(F,Strng);
            Last:=0;
            while Last<length(Strng) do
            begin
                    P:=Last+1;
                    while (P<=length(Strng)) and (Strng[P]<>' ') do
                            inc(P);
                    m:=copy(Strng,Last+1,(P-Last-1));
                    Val(m,lin);
                    Last:=P;
            end
    end;
    
    
    
    
    
    
    begin
            assign(F,'myfile.txt');
            reset(F);
            ProcessStringA;
            Writeln(nums);
            ProcessStringB;
            Writeln(lin);
            setlength(a,nums);
            Small:=Low(a);
            Big:=High(a);
            for i:= Small to big do
            count[i]:=0;
            FillTheArray;
            while not eof(F) do ProcessString;
    
            for i:=Small to Big do
            begin
            if count[i]=2 then
            countnums:=countnums+1;
            end;
             Close(f);
            Assign(t,'fileout.txt');
            Rewrite(t);
            Writeln(t,countnums);
            close(t);
    
    
    end.