Создать массив, элементы которого являются простыми числами и расположены до минимального элемента в файле

program abc;
uses crt;
var
f:file of integer;
a,i,n:integer;
   begin clrscr;
  randomize;
  assign(f,'g:\22\cel.dat');
  rewrite(f);
   n:=50;
 for i:=1 to n do
 begin
 a:=random(100);
 write(a:4);
 write(f,a);
end;
close(f);
writeln;
readln;
end.

program f5;
var
f:file of integer;
i,m,n:integer;
a:array[0..50] of integer;
b:array[1..50] of integer;
begin
assign(f,'g:\22\cel.dat');
reset(f);
 for i:=0 to filesize(f)-1 do
 begin
 read(f,a[i]);
 write('  ',a[i]);
 end;
 readln;
n:=1;
for i:=0 to filesize(f)-1 do
begin
if (a[i] mod 2) <> 0 then
  if (a[i] mod 3) <> 0 then
    if (a[i] mod 5) <> 0 then
      if (a[i] mod 7) <> 0 then
    begin
     b[n]:=a[i];
     n:=n+1;
    end;
end;
close(f);
for i:=1 to n do
write(' ',b[n],' ');
readln;
end.

uses crt;
function Prost(n:integer):boolean;
var i:integer;
begin
Prost:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
 begin
  Prost:=false;
  break;
 end;
end;
var f,g:file of integer;
    a:array[1..100] of integer;
    n,i,b,imn,mn,k:integer;
begin
clrscr;
randomize;
assign(f,'fail_f');
rewrite(f);
assign(g,'fail_g');
rewrite(g);
write('Сколько чисел ввести в файл? n=');
readln(n);
for i:=1 to n do
 begin
  b:=random(20)+1;
  write(f,b);
 end;
reset(f);
k:=0;
mn:=maxint;
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,b);
  if b<mn then
   begin
    mn:=b;
    imn:=i;
   end;
 end;
close(f);
reset(f);
n:=0;k:=0;
for i:=0 to imn-1 do
 begin
  seek(f,i);
  read(f,b);
  if Prost(b) then
   begin
    n:=n+1;
    a[n]:=b;
    write(g,a[n]);
    k:=1;
   end;
 end;
close(f);
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,b);
  write(b,' ');
 end;
close(f);
writeln;
writeln('Минимум=',mn,' индекс=',imn);
if k=0 then writeln('Простых чисел до минимального нет!')
else
 begin
  writeln;
  writeln('Массив А:');
  for i:=1 to n do
  write(a[i],' ');
  writeln;
  writeln;
  writeln('Содержание файла G:');
  reset(g);
  while not eof(g) do
   begin
    read(g,b);
    write(b,' ');
   end;
  close(g);
 end;
readln
end.