создание блок схемы

[Katastrofa1984]

задача такова: Дан массив A(N,M). В каждой строке выбирать минимальный элемент, затем среди этих чисел выбрать максимальный. Определить номер строки и номер столбца массива А в которых расположено выбранное число. Составить блок-схему
Программа выглядит следующим образом

    uses crt;
     
    const
         nmax = 10;
     
    type
        item = record
             It, I, J: integer;
        end;
     
    var
       items: array[1..nmax] of item;
       arr: array[1..nmax, 1..nmax] of integer;
       colls, rows, i, j: integer;
     
       maxItem: item;
     
    begin
         clrscr;
         randomize;
     
         write('BBegu KoJIu4ecTBo cTpoK oT 1 go ', nmax,': ');
         repeat
             readln(rows);
         until rows in [1..nmax];
     
         write('BBegu KoJIu4ecTBo cTpoJI6LI,oB oT 1 go ', nmax,': ');
         repeat
             readln(colls);
         until colls in [1..nmax];
     
         for i := 1 to rows do begin
             for j := 1 to colls do begin
                 arr[i, j] := random(10) - 5;
                 write(arr[i, j], '   ');
             end;
             writeln;
         end;
     
         for i := 1 to rows do begin
             items[i].It := arr[i, 1];
             items[i].I := i;
             items[i].J := 1;
             for j := 1 to colls do
                 if (arr[i,j] < items[i].It) then begin
                    items[i].It := arr[i, j];
                    items[i].I := i;
                    items[i].J := j;
                 end;
         end;
     
         maxItem := items[1];
         for i := 2 to rows do
            if (items[i].It > maxItem.It) then
               maxItem := items[i];
     
         writeln;
         write('maxItem: ', maxItem.It, '; i = ', maxItem.I, '; j = ', maxItem.J, ';');
     
         readln;
    end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.