Проверьте , правильность построения ​

Uses GraphABC;
var tnk:array of Point;
begin
  Window.Title := 'Танк атакует';
  var y := 200;
  Brush.Color := clGreen;
  LockDrawing;
  tnk:=new Point[4];
  for var x := 70 to 500 do  begin
    Window.Clear(clWhite);
    Rectangle(x,y,x+100,y+50);
    Rectangle(x-25,y+50,x+125,y+75);
    tnk[0].X:=x-45;
    tnk[0].Y:=y+75;
    tnk[1].X:=x-30;
    tnk[1].Y:=y+120;
    tnk[2].X:=x+100;
    tnk[2].Y:=y+120;
    tnk[3].X:=x+145;
    tnk[3].Y:=y+75;
    Rectangle(x+100,y+10,x+225,y+25);
    FillPolygon(tnk);
    Redraw;
    Sleep(3);
  end;
end.

1)
int main(){
    int a[10];
    int summ1 = 0, summ2 = 0;
    for(int i = 0; i < 10; i++){
        a[i] = rand()%10 - 3;
        cout << a[i] << " ";
        if(a[i] < 0) summ1 += a[i];
        if(a[i] % 2 != 0) summ2 += a[i];
    }
    cout << "\nСумма отрицательных элементов равна: " << summ1 << endl;
    cout << "Сумма нечетных элементов равна: " << summ2 << endl;
}

2)
int main(){
    const int n = 5;
    int a[n][n];
    int summ1 = 0, summ2 = 0;
    for(int i = 0; i < n; i++){
        for(int j = 0; j < n; j ++){
            a[i][j] = rand()%10 + 1;
            cout << a[i][j] << " ";
            if(i == j) summ1 += a[i][j];
            if(n - 1 == i + j) summ2 += a[i][j];
        }       
        cout << endl;   
    }
    cout << "\nСумма элементов главной диагонали равна: " << summ1 << endl;
    cout << "Сумма элементов побочной диагонали равна: " << summ2 << endl;
}