Tổng ^2 các số âm

Viết chương trình tính tổng bình phương các số âm trong một mảng các số nguyên
                                              Giải
Var
       a: array[1..50] of integer;
       i,j,x,t: integer;
Begin
   Write('Ban muon nhap mang co bao nhieu phan tu? '); Readln(x);
   For i:=1 to x do
       Begin
             Write('Nhap phan tu thu ',i,' : '); Readln(a[i]);
       End;
   t:=0;
   For i:=1 to x do
   if a[i]<0 then t:=t+a[i]*a[i];
   Writeln('Tong binh phuong cac so am trong day la: ',t);
   Readln;
End.