Правильно ли составил блок-схему?

procedure TForm3.FormShow(Sender: TObject);
Var f:textfile;
    i,j:integer;
begin
    //открываем файл In.txt для чтения
    AssignFile(f,'in.txt');Reset(f);
    //считываем размерность матрицы из файла
    read(f,n);read(f,m);
    readln(f);
    //устаналиваем данную размерность StringGrid'у
    StringGrid1.RowCount:=n;
    StringGrid1.ColCount:=m;
    For i:=0 to n-1 do
    Begin
      For j:=0 to m-1 do
      Begin
        read(f,A[i,j]); //считываем из файла числа в матрицу A
        StringGrid1.Cells[j,i]:=FloatToStr(A[i,j]); //заносим в StringGrid значения матрицы A
      End;
      readln(f);//переходим на следующую строку файла
    End;
    CloseFile(f);//закрываем файл
end;
 
procedure TForm3.Button1Click(Sender: TObject);
Var f:textFile;
begin
    s:=Sum(A,n,m); //вычисляем сумму строк в которых нету отрицательных
    //выводим сумму в Edit1
    Edit1.Text:=FloatToStrF(s,ffFixed,5,2);
    //открываем файл out.txt для перезаписи
    AssignFile(f,'out1.txt');Rewrite(f);
    //заносим в файл сумма
    writeln(f,'Сумма = ',s:0:2);
    CloseFile(f);   //закрываем файл
end;