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

[Воробушек]

вычислить компоненты вектор х(х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.

найдите ошибку:confused :

[LittleG]

Дальше гадай))
Program pr1;

uses crt;
const n=10;a=2.2;b=-0.4;
var x:array [1..n] of real;
i:integer;
begin;
writeln('исходный массив');

for i:=1 to n do
x[i]:=a*sin(0.5*i)+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 
x[i]:=1;
writeln('измененный массив:');
for i:=1 to n do
writeln(x[i]);
end.