Вычислить функцию, аргументы брать из массива, результаты поместить в файл. (исправить некоторые ошибки)

[Мирзали]

но b меняется от -4 с шагом 0,5

[Alex11223]

А, понял, к вечеру способность угадывать с "полуслова" немного притупляется. Видимо i=1,10 означает границы массивов. Могли бы более понятно переписать)
У вас тогда i должен быть не real, a integer и cos(x[i]) как-то так записывается.

[Мирзали]

program mkurs;
const n=10;
var f1,f2:text;
    x,y:array [1..n] of real;
    b:real;
    i:integer;
begin
assign(f1,'m1.txt');
assign(f2,'m2.txt');
reset(f1);
rewrite(f2);
b:=-4;
for i:=1 to n do
 begin
  y[i]:=2*cos(x[i])+b;
  b:=b+0.5;
  write(f2,' ',y[i]:0:2);
 end;
close(f1);
close(f2);
write('Массив Н записан в файл m2.txt');
readln
end.