Лабы / Pascal.1.курс / part 1 / LABA4 / VAR24 / LABA4_24

program laba4;
uses crt;
type ftype = file of integer;
var f: ftype;
i,l,v,size: integer;

function simple (p:integer): boolean;
var q,j:integer;
control:boolean;
begin
q:=0;
control:=false;
for j:=2 to abs(p)-1 do
begin
if abs(p) mod j <> 0 then inc(q);
end;
if (q=abs(p)-2)and(p<>2)and(p<>1) then control:=true;
simple:=control;
end;

procedure ff (var f:ftype);
var path:string;
rand:integer;
begin
clrscr;
textbackground(black);
randomize;
textcolor(white);
writeln('Enter file name');
readln(path);
clrscr;
assign(f,path);
{$I-}
rewrite(f);
{$I+}
if ioresult<>0 then
begin
writeln('There is some troubles with the file');
halt;
end;
for i:=0 to 10 do
begin
seek(f,i);
rand:=random(100)-50;
write(f,rand);
end;
close(f);
end;

begin
ff(f);
reset(f);
writeln('€б室­л© д ©«: ');
size:=filesize(f);
v:=0;
seek(f,0);
for i:=0 to size-1 do
begin
seek(f,i);
read(f,l);
if simple(l) then
begin
seek(f,size+v);
write(f,l);
inc(v);
end;
end;
close(f);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,l);
if i<size then
begin
textcolor(white);
write(l,' ');
end
else
begin
textcolor(green);
delay(5000);
write(l,' ');
end;
end;
close(f);
readln;
end.