uses crt;
const N = 20;{кол-во цифр}
var{пусть будут глобальные..}
    F:file of integer;
    i:byte;
    arr:array[1..N] of integer;{массив для наглядности, в него считываем из файла}
    
procedure FileWrite(filename:string);
begin
    assign(f,filename);
    rewrite(f);
    randomize;
    for i:= 1 to N do
        write(f,random(100));
    close(f);
end;

procedure FileRead(filename:string);
begin
    assign(f,filename);
    reset(f);
    writeln(filename,' source:');
    for i:= 1 to N do
    begin
        read(f,arr[i]);
        writeln('arr[',i,'] = ',arr[i],'; ');
    end;
    close(f);
end;

begin
    clrscr;
    FileWrite('file.txt');{заранее создай этот файл сам}
    FileRead('file.txt');
    
    writeln('Четные:');
    for i:= 1 to N do
        if arr[i] mod 2 = 0 then
            writeln(arr[i]);

    writeln('div 3, not div 7:');
    for i:= 1 to N do
        if (arr[i] mod 3 = 0) and (arr[i] mod 7 <> 0) then
            writeln(arr[i]);
    readkey;
end.