kill me

type mx=array[1..100,1..200] of integer;
	 fileM=file of mx;
	 mas=array[1..10000] of integer;

procedure mxMake(var a:mx);
var i,j:integer;
begin
	for i:=1 to 50 do
		for j:=1 to 150 do
			a[i,j]:=random(30000);
end;

procedure makeaFile(var f:fileM);
var a:mx; i:integer;
begin
	for i:=1 to 10 do
		begin
			mxMake(a);
			write(f,a);
		end;
end;

function prostoe(n:integer):boolean;
var i:integer;
begin
	prostoe:=n>1;
	for i:=2 to n-1 do if n mod i=0 then prostoe:=false;
end;

procedure sort(var m:mas;n:integer);
var c,i:integer;
	f:boolean;
begin
	repeat
		f:=true;
		i:=1;
		while i<n do
			begin
				if m[i]>m[i+1] then
					begin
						c:=m[i];
						m[i]:=m[i+1];
						m[i+1]:=c;
						f:=false;
					end;
				inc(i);
			end;
	until f;
end;

procedure insert(e:integer;var m:mas;var n:integer);
var i:integer; f:boolean;
begin
	f:=true;
	for i:=1 to n do
		if e=m[i] then f:=false;
	if (f) and (prostoe(e)) then begin
		inc(n);
		m[n]:=e;
		end;
end;

var f:fileM;
	out:text;


begin
	assign(f,'f.dat');
	assign(out,'out.txt');
	rewrite(f);
	makeaFile(f);
	close(f);
	reset(f);
	n:=0;
	while not(eof(f)) do

end.