Помогите пожалуйста сейчас!Дан массив А(10) Отыскать сумму положительных и отрицательных

На каком языке?

delphi 7

Var   
i,su1,su2:integer;
a:array[1..10] of integer; 
 input,output:text;
begin 
 assign(input,'input.txt'); 
 assign(output,'output.txt');
 reset(input); 
 rewrite(output); 
for i:=1 to 10 do     
 read(input,a[i]); 
for i:=1 to 10 do 
    begin       
       if a[i]gt;0         
          then           
             inc(su1,a[i])
          else         
             inc(su2,a[i]);   
    end;   
writeln(output,'Сумма положительных:',su1); 
write(output,'Сумма отрицательных:',su2);
close(input);
close(output);
end.