Составьте программу вычисления суммы отрицательных элементов в массиве a[1..10]. + сделать чтобы это с .txt файла вводилось. я не знаю как, но тема "работа с текстовыми файлами".

Var i,k,s: integer;
    f: text;
begin
  assign(f,'c.txt');
  reset(f);
  s:=0;
  for i:=1 to 10 do
  begin
    read(f,k);
    write(k,' ');
    if k<0 then s:=s+k;
  end;
  close(f);
  writeln;
  writeln('сумма отрицательных: ',s);
end.

Файл c.txt во вложении.