Контрольная работа: Автоматизований аналіз злочинності по областям
with obl do
begin
if iz>k then
begin
k:=iz;
j:=i;
end;
end;
end;
seek (f, j);
read (f, obl);
with obl do
begin
writeln ('sam. bolh. kol. iznosilovaniy-', iz);
writeln ('v ', nas, ' oblasti');
writeln(#219);
end;
k:=-9999;
j:=0;
for i:=0 to filesize(f) – 1 do
begin
seek (f, i);
read (f, obl);
with obl do
begin
if kr>k then
begin
k:=kr;
j:=i;