Составление блок-схему

program lab;
uses
  crt;
const
  str=10;
  col=3;
var
  a:array [1..str,1..col] of integer;
  i,j,maxi,mini,sum,tempi:integer;
  temp,min,max:real;
begin
  clrscr;
    writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=2+random(4);
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  for j:=1 to col do
  begin
    sum:=0;
    for i:=1 to str do
      inc(sum,a[i,j]);
    if j=1 then
    begin
      temp:=sum/str;
      tempi:=1
    end;
    if sum/str>temp then
    begin
      temp:=sum/str;
      tempi:=j
    end;
    writeln('Среднее ',j,' столбца = ',sum/str:0:2)
  end;
  max:=0;
  min:=10;
  mini:=1;
  maxi:=mini;
  for i:=1 to str do
  begin
    sum:=0;
    for j:=1 to col do
      inc(sum,a[i,j]);
    if sum/col>max then
    begin
      max:=sum/col;
      maxi:=i
    end;
    if sum/col<min then
    begin
      min:=sum/col;
      mini:=i
    end;
  end;
  writeln(maxi,' строка - это строка с наибольшим баллом. Её балл = ',max:0:2);
  writeln(mini,' строка - это строка с наименьшим баллом. Её балл = ',min:0:2);
  {выводи столбец с наибольшим средним баллом}
  writeln(maxi,' столбец - это столбец с наибольшим ср. баллом. Его балл = ',temp:0:2)
end.