Помогите пожалуйста сегодня! Дан массив А(10) Найти сумму положительных и отрицательных елементов массива.Использовать ввод и вывод данных в файл и из файла (input,output)Заранее Спасибо.

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]>0                    then                         inc(su1,a[i])           else                       inc(su2,a[i]);        end;    writeln(output,'Сумма положительных:',su1);  write(output,'Сумма отрицательных:',su2); close(input); close(output); end.