Протабулировать функцию y = ex+cos x для -1< = x< = 1.5 с шагом 0.1, записать данные в файл и просмотреть данные из файла. На языке Паскаль. Буду благодарна

Program func;
var
    i, y: real;
function MyFunction(x: real): real;
begin
  MyFunction := ( Exp(x) + Cos(x) );
end;
begin
  i := -1;
  assign(output, output.txt);
  rewrite(output);
  while i lt;= 1.5 do
  begin
    x := MyFunction(i);
    write(output, x, );
    i := i + 0.1;
  end;
  close(output);
  assign(input, output.txt);
  reset(input);
  writeln(Содержимое файла:);
  writeln( readln(input) );
end.