Курсовая работа: Автоматизований аналіз злочинності

window(2,2,38,24);

textbackground(2);

clrscr;

textcolor(0);

if fsearch('ret','d:\')='' then

begin

textcolor(4);

writeln('FAil ne naiden');

end

else

begin

assign(f,'d:\ret');

reset(f);

s:=0; s1:=0;s2:=0;s3:=0;s4:=0; min:=9999;max:=-9999;j:=0;l:=0;

for i:=0 to filesize(f)-1 do

begin

s5:=0;

seek(f,i);

read(f,pe);

s5:=pe.u+pe.y+pe.k+pe.s;

if 5<min then

begin

min:=s5;j:=i;

end;

if s5>max then

begin

max:=s5;l:=i;

end;

s:=s+pe.u+pe.y+pe.k+pe.s;