блок схема

[shalgan]

                 type mas=array[1..100]of integer;
 procedure sort(const a:mas; const b:integer; var imax:integer);
{Возвращает номер максимального элемента}
var i : integer;
   max : integer;
begin
 imax := 1;
 max := a[imax];
 for i := 2 to b do
      if a[i] > max then begin
          imax := a[i];

      end;
end;

var
  x, y: mas;
  n: integer;
  j: integer;
  jmax:INTEGER;
begin
  writeln('vvedite kolicestvo elementov massiva x.Ot 0do 80');
  readln(n);
  writeln('vvedite cisla massiva x');
  for j := 1 to n do
    readln(x[j]);

 sort(x,n,jmax);
writeln('maksimalnui element massiva=',x[jmax]);
writeln('on naxoditza pod nomerom',jmax);
Readln;

  writeln('vvedite kolicestvo elementov massiva y.Ot 0 do 70');
  readln(n);
  writeln('vvedite cisla massiva y');
  for j := 1 to n do
    readln(y[j]);
sort(y,n,jmax);
writeln('maksimalnui element massiva=',y[jmax]);
writeln('on naxoditza pod nomerom',jmax); 
Readln;;

end.

до данного кода нужно нарисовать блок схему 345.jpg
для под программы я нарисовал правильно,а вот с основной программой замашка,преподаватель сказал,что ошибка в обведенной области мол процедура не в цикле, оно и понятно,но как это изобразить?

[rrrFer]

А код то правильный? - мне кажется тут какой-то копипаст, это не должно работать.

Почему процедура с именем sort возвращает максимальный элемент массива, а ен сортирует?

Как преподаватель понял этуот бред - не знаю.
Но процедура правда не в цикле.

После квадрата bb поставь квадрат sort. А вместо сорт в цикле рисуй параллелограмм "ввод элемента массива".

Мне кажется или эти каракули левой рукой написаны?