Постройте массив S, каждый элемент которого равен сумме соответствующих элементов массивов A и B

procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим основные параметры таблиц
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid3 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,s:array of integer;
    n,i,c:integer;
begin
//проверим ввод размера
val(Edit1.Text,n,c);
if(c<>0)or(n<1)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
randomize;
setlength(a,n);
setlength(b,n);
setlength(s,n);
StringGrid1.ColCount:=n;
StringGrid2.ColCount:=n;
StringGrid3.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=random(20);
  StringGrid1.Cells[i,0]:=inttostr(a[i]);
  b[i]:=random(20);
  StringGrid2.Cells[i,0]:=inttostr(b[i]);
  s[i]:=a[i]+b[i];
  StringGrid3.Cells[i,0]:=inttostr(s[i]);
 end;
end;