СХЕМА АЛГОРИТМА БЛОК СХЕМА

РЕБЯТА ПОМОГИТЕ.
ЕСТЬ 2 ЗАДАЧИ!!!! И ОНИ ПРОБЛЕМНЫЕ!!! И Я НЕ МОГУ РЕШИТЬ ИХ111 ПОМОГИТЕ ПЛИЗ!!!
ВОТ ТЕКСТЫ

1 В регионе из 8 областей в течении ряда лет ведется учет количества преступлений по каждой области. Найти и вывести на экран названия областей,в которых было совершено максимальное и минимальное количество преступлений в прошлом и текущем годах!!!

2 В компьютере хранятся сведения о осузденных. фамилия,адрес,вид преступления,год осуждения,срок. Вывести список фамилий и адресов осужденных по определенной статье,срок осуждения,заканчив в текущем году!!!
вот. заранее спасибо

какой язык программирования?

Первая вообще простяк

Код:

type
 tralala = record
  name:string;
  i:integer;
 end;
var
 a:array[1..8]of tralala;
 i,mx,mn:integer;
begin
 for i:=1 to 8 do begin
  write('Название области #',i);
  readln(a[i].name);
  write('Количество преступлений в обдасти #',i);
  readln(a[i].i);
  if i=1 then mn:=i else if a[i].i<a[mn] then mn:=i;
  if i=1 then mx:=i else if a[i].i>a[mx] then mx:=i;
 end;
 writeln('Наибольшее количество преступлений в области "',a[mx].name,'"');
 writeln('Наименьшее количество преступлений в области "',a[mn].name,'"');
 readln;
end.