Bom galera, conforme prometido, segue os códigos dos dois exercícios da prova:

1ª Questão: não me lembro o enunciado de nenhuma das duas.

procedure TForm1.BitBtn1Click(Sender: TObject);
var mat : array [1..4,1..5] of integer;
    i, j : integer;
    raiz, soma : real;
begin
    soma := 0;
    mat[1,1] := strtoint (edit1.Text);
    mat[1,2] := strtoint (edit2.Text);
    mat[1,3] := strtoint (edit3.Text);
    mat[1,4] := strtoint (edit4.Text);
    mat[1,5] := strtoint (edit5.Text);
    mat[2,1] := strtoint (edit6.Text);
    mat[2,2] := strtoint (edit7.Text);
    mat[2,3] := strtoint (edit8.Text);
    mat[2,4] := strtoint (edit9.Text);
    mat[2,5] := strtoint (edit10.Text);
    mat[3,1] := strtoint (edit11.Text);
    mat[3,2] := strtoint (edit12.Text);
    mat[3,3] := strtoint (edit13.Text);
    mat[3,4] := strtoint (edit14.Text);
    mat[3,5] := strtoint (edit15.Text);
    mat[4,1] := strtoint (edit16.Text);
    mat[4,2] := strtoint (edit17.Text);
    mat[4,3] := strtoint (edit18.Text);
    mat[4,4] := strtoint (edit19.Text);
    mat[4,5] := strtoint (edit20.Text);
    for i := 1 to 4 do
      for j := 1 to 5 do
        begin
        if (i+j) mod 2 = 0   then
        soma := soma + mat[i,j];
        end;
        raiz := sqrt (soma);
        edit21.Text := formatfloat ('#,##0.00', raiz);
        edit22.Text := floattostr (soma);

end;

2ª Questão:

procedure TForm1.BitBtn1Click(Sender: TObject);
var vet : array of integer;
     i, n, soma : integer;
     media : real;
begin
    soma := 0;
    n := strtoint (edit1.Text) ;
    setlength (vet, n);
    for i := 1 to n do
        begin
        vet[i] := strtoint(inputbox ('Valor Vetor','Valor','  '));
        soma :=  soma + vet[i];
         end;
        media := soma / n;
        for i := 1 to n do
        begin
        listbox1.Items.Add (inttostr(vet[i]));
        end;
        label2.Caption := ('Media dos Valores Inseridos no Vetor: '+ formatfloat('#,##0.00',media));
        edit1.Clear;
end;

Boa sorte Galera..