Дан массив aa из nn целых чисел. Нужно найти, превосходит ли

Program s;
var a:array [0..100] of integer; //100-количество частей массива,можно поменять на ваше число
n,i,s:integer;
begin
write('Введите число частей массива : ');
read(n);  //Количество частей массива
write('Введите элементы массива через пробел : ');  //Эту строку можно не писать (по желанию)
  for i:=1 to n do  
begin 
read(a[i]);    // Вводим элементы через пробел  
s:=s+a[i];    //Суммируем элементы массива  end;
if sgt;100 then write(' Yes ')
else write(' No ');
end.