Найти номер строки с максимальной суммой цифр, среди элементов, размещённых под главной диагональю

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n:byte;
  a:array of array of char;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
n:=Strtoint(Edit1.Text);
Stringgrid1.ColCount:=n;
Stringgrid1.RowCount:=n;
Setlength(a,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=chr(random(43)+48);
for i:=0 to n-1 do
for j:=0 to n-1 do
Stringgrid1.Cells[i,j]:=a[j,i];
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,imx:byte;
    mx,sm:integer;
begin
mx:=0;imx:=1;
for i:=1 to n-1 do//со второй строки
 begin
  sm:=0;
  for j:=0 to i-1 do//от 1  и не доходя главной
  if a[i,j] in ['0'..'9'] then sm:=sm+ord(a[i,j])-48;//если цифра, берем ее код - 48 и суммируем
  if sm>mx then//если сумма больше макс
   begin
    mx:=sm;//это макс
    imx:=i;//номер строки
   end;
  end;
Edit2.Text:='Номер строки='+Inttostr(imx+1)+'  сумма='+Inttostr(mx);
end;
 
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  nmax=20;
 
var
  a:array [1..nmax,1..nmax] of char;
  n,i,j,imx:byte;
  mx,sm:integer;
 
begin
  try
    Randomize;
    repeat
      write('Pa3mep maTpuLLbI = ');
      readln(n)
    until
      n in [1..nmax];
    for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=chr(random(43)+48);//можно вводить с клавиатуры, но мне лень, берем случайные символы от 0 до Z
    writeln('MaTpuLLa:');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
      writeln;
    end;
    mx:=0;
    for i:=2 to n do//со второй строки
    begin
      sm:=0;
      for j:=1 to i-1 do//от 1  и не доходя главной
        if a[i,j] in ['0'..'9'] then sm:=sm+ord(a[i,j])-48;//если цифра, берем ее код - 48 и суммируем
          if sm>mx then//если сумма больше макс
          begin
            mx:=sm;//это макс
            imx:=i;//номер строки
          end;
    end;
    Write('Homep cTpoKu = ',imx,'  Cymma = ',mx);
    ReadLn
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const nmax=20;
var a:array of array of char;
    n,i,j,imx:byte;
    mx,sm:integer;
begin
randomize;
repeat
write('Razmer matricy=');
readln(n);
until n in [1..nmax];
Setlength(a,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=chr(random(43)+48);//можно вводить с клавиатуры, но мне лень, берем случайные символы от 0 до Z
writeln('Matrica:');
for i:=0 to n-1 do
 begin
   for j:=0 to n-1 do
   write(a[i,j]:4);
   writeln;
 end;
writeln;
mx:=0;imx:=0;
for i:=1 to n-1 do//со второй строки
 begin
  sm:=0;
  for j:=1 to i-1 do//от 1  и не доходя главной
  if a[i,j] in ['0'..'9'] then sm:=sm+ord(a[i,j])-48;//если цифра, берем ее код - 48 и суммируем
  if sm>mx then//если сумма больше макс
   begin
    mx:=sm;//это макс
    imx:=i;//номер строки
   end;
 end;
write('Nomer stroki=',imx+1,'  summa=',mx);
readln
end.