Помогите,пожалуйста, построить структурную схему

[retyih]

program Project6;{найти наибольший по абсолютной величине элемент второй строки
матрицы A(NxM)}

{$APPTYPE CONSOLE}

{uses
  SysUtils; }
  const P=20;
  type
  arr=array [1..P,1..P] of Integer;
    var
    i,j,n,m, max:integer;
    A:arr;
    begin
      {ввод массива с клавиатуры}
      write ('vvedite razmernost massiva A n,m');
      Readln(n,m);
      Writeln('vvedite elementi massiva A');
      for i:=1 to n do begin
      for j:=1 to m do begin
        write ('a[',i,',',j, ']=');
        Readln(a[i,j]);

      end;
      end;

          {поиск наибольшего по абсолютной величине элемента второй  строки
  матрицы A(NxM)}
       max:=A[2,1];
          for j:=2 to m do

	        begin
            if (Abs(max)< Abs(A[2,j]))
              then
                max:=A[2,j];
          end;

          writeln('vivod matrici');
	    for i:=1 to n do begin
      for j:=1 to m do begin

	         write(a[i,j]:4);
           end;
	        writeln;
	        end;
	        writeln('naibolshie elementi stroki  2');
          Writeln('max=',max);
         readln;
	       end.