Одномерный массив

[Воробушек]

вычислить компоненты вектор х(х1, х2, ...х10) по формуле
xi=a*sin(0,5i)+b*cos(i-1), i=1,2,...10,
где а=2.2 b=-0.4 и вывести на печать.Далее преобразовать полученный вектор следующим образом: все отрицательные компоненты увеличить на 0.5, а положительные заменить единицей.Преобразованный вывести на печать.

Program pr1;
const n=10;a=2.2;b=-0,4;
var x:array [1..n] of real;
i:integer
for i:=1 to n do
x[i]:=a*sin(0.5i)+b*cos(i-1)
writeln('получен массив x[i]:');
for i:=1 to n do
if x[i]<0 then x[i]=0.5+x[i]
else begin
x[i]=1;end
writeln('измененный массив:');
for i:=1 to n do
writeln(x[i]);
end.

у меня не получается

[min@y™]

Йопть, опять?! Да вы издеваетесь, штоли, маньяки?

Как грицца, найди 9000 отличий.

Program pr1;

const
  n = 10;
  a = 2.2;
  b = -0.4;
  
var
  x: array [1..n] of real;
  t: Real;
  i: integer;
  
begin
  writeln('получен массив:');
  for i:= 1 to n do
    begin
      t:= a * sin(0.5 * i) + b * cos(i - 1);
      WriteLn('x[i] = ', t: 4: 5);

      if t < 0
        then x[i]:= t + 0.5
        else x[i]:= 1.0;
    end;

  writeln('измененный массив:');
  for i:= 1 to n do
    WriteLn('x[i] = ', x[i]: 4: 5);
end.