Помогите плиз Перенаправление Прочитайте число n из файла input.txt и выведите его в файл output.txt (-32768 < n < 32767)! Входные данные: В единственной строке входного файла input.txt записано число от -32767 до 32766! Выходные данные: В единственную строку выходного файла output.txt нужно вывести в точности то же число, которое задано во входном файле! Примеры: № input.txt output.txt 1 3 3 2 0 0 3 32766 32766 4 -32761 -32761

Program File;
var
  f1,f2:text;
  i: integer;
begin
  AssignFile(F,input.txt);  Reset(F);  Read(F,i);
  Close(F);

  AssignFile(f1,output.txt);
  Rewrite(f1);
  Write(f1,i);  Close(f1);
end.