На диске расположен файл ‘zadanie1.pas’, состоящий из 10 целых чисел (записать через пробел). Вычислить произведение отрицательных чисел — Pascal(Паскаль)

var
  mult, a: integer;
 
begin
  assign(input, 'zadanie1.txt');   {с этого файла ('zadanie1.pas') ты не сможешь прочитать}
  reset(input);
  mult := 1;
  while not eof(input) do
  begin
    read(a);
    if a < 0 then mult := mult * a;
  end;
  close(input);
  writeln('произведение отрицательных чисел файла: ', mult);
  readln;
end.