Написать программу. И блок схему

type
  state = record
    name : string;
    num : integer
  end;
var
  a : array [1..10] of state;
  i, max, j : integer;
begin
  {задаем страны}
  a[1].name := 'Алжир'; a[1].num := 6;
  a[2].name := 'Египет'; a[2].num := 4;
  a[3].name := 'Заир'; a[3].num := 9;
  a[4].name := 'Камерун'; a[4].num := 6;
  a[5].name := 'Ливия'; a[5].num := 6;
  a[6].name := 'Мали'; a[6].num := 7;
  a[7].name := 'Нигер'; a[7].num := 7;
  a[8].name := 'Судан'; a[8].num := 7;
  a[9].name := 'Чад'; a[9].num := 6;
  a[10].name := 'Эфиопия'; a[10].num := 7;
  {проверяем}
  max := 0;
  for i := 1 to 10 do 
    if a[i].num >= max then
    begin
      max := a[i].num;
      j := i
    end;
  writeln('максимальное число соседей у страны: ', a[j].name, ' = ', max)
end.