паскаль помогите пожалуйста

Так вроде:

program Formula;
uses crt;
const h: real = 0.2; x_real: real = -2.3; x_final: real = 0.5;
var z, x: array[0..50] of real; y, sum: real; i: integer;
begin
for i:=0 to 50 do
begin
if i = 0 then x := x_real else
x := x_real + 0.2;
if x = x_final then break;
end;
for i:=0 to 50 do z := -2.3*x + sin(x);
sum := 0;
for i:=0 to 50 do if z >= 0 then sum:=sum+z;
y := sum*2;
writeln(y);
readkey;
end.