Используя файловый ввод вывод найдите сумму отрицательных элементов из 15 чисел. с информатикой! 99 !

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

-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27 
сумма отрицательных: -111

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