Дан массив A(n,m). Найти количество элементов в каждой строке, меньшего диагонального в этой строке.

[Proskurina]

Здравствуйте, помогите пожалуйста решить задачу на делфи. Дан массив A(n,m). Найти количество элементов в каждой строке, меньшего диагонального в этой строке.( можно код и форму) решать через StringGrid.

[Stilet]

решать через StringGrid.

var i,j,q,w:integer;
begin
 with StringGrid do begin
  for i:=0 to RowCount-1 do begin q:=StrToIntDef(Cells[i,i],0); tag:=0;
   for j:=0 to ColCount-1 do begin
    w:=StrToIntDef(Cells[i,j],0);
    if w<q then tag:=tag+1;
   end;
   Caption:=Caption+' '+IntToStr(tag);
  end;
 end;
end.

[Proskurina]

сделайте пожалуйста блок-схему к этой задаче.

[Stilet]

Я их не люблю.

[Proskurina]

плиз очень нужно

[Stilet]

Я не рисую блок-схемы.