Переписать код нахождения среднего арифметического в столбце с Delphi на C++

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//проверим ввод размеров
val(Edit1.Text,n,i);
if (i<>0)or not(n in [1..20])then
begin
ShowMessage('Неверно введено количество строк');
Edit1.Clear;
Edit1.SetFocus;
exit
end;
val(Edit2.Text,m,i);
if (i<>0)or not(m in [1..20])then
begin
ShowMessage('Неверно введено количество столбцов');
Edit2.Clear;
Edit1.SetFocus;
exit
end;
val(Edit3.Text,k,i);
if (i<>0)or not(k in [1..m])then
begin
ShowMessage('Неверно введен номер столбца');
Edit3.Clear;
Edit3.SetFocus;
exit
end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
randomize;
//заполним таблицу случайными числами
for i:=1 to n do
for j:=1 to m do
Stringgrid1.Cells[j-1,i-1]:=inttostr(random(20));
Showmessage('Можно отредактировать значения')
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,p,c:integer;
s:real;
begin
//прочитаем матрицу из таблицы,
p:=0;
for i:=1 to n do
for j:=1 to m do
begin
val(Stringgrid1.Cells[j-1,i-1],a[i,j],c);
if c<>0 then p:=1;
end;
if p=1 then
begin
ShowMessage('Неверно отредактированы данные, поправьте');
exit
end;
s:=0;
for i:=1 to n do
s:=s+a[i,k];
s:=s/n;
Edit4.Text:='Среднее арифметическое в столбце '+IntToStr(k)+
'='+FloatToStrF(s,ffFixed,6,2);
end;
 
end.