[san-46]

По первой задаче:

Код:

function sum(a : array of Integer{; n : integer}):integer;
var s,i:integer;
begin
  //доступ к динамическому массиву с нуля
  for i := 0 to high(a) do s := s + a [i];
  form1.memo1.lines.add(inttostr(s));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array of integer;
  n,m,i,d,s,j, c:integer;
//  c:extended;
begin
  n := strtoint(edit1.Text);
//  sum(n); это зачем?
  setlength(a, n);
  i := 1;
  randomize;
  for i := 0 to n-1 do begin
//    c := random(100); 
//    c := c * 100;
//    d := round(c);
    a[i] :=  random(100); //для целых чисел достаточно указать макс. значение
    stringgrid1.cells[0, i] := inttostr(a[i]);
  end;
  sum(a);
  a := nil; //освобожение памяти от ненужного теперь массива
end;

По второй: не понятно куда и в каком виде "вывести шахматную доску".