Задача на тему циклы, Помогите исправить ошибки плиз Опции

[kvadrat]

Условие:

program lab4zad2;
uses crt;
var
x,S,ss: array[0..100] of real;
i,j:integer; h:real;
begin
writeln('‚ўҐ¤ЁвҐ и Ј');
readln(h);
clrscr;
for j:=1 to 5 do
  for i:=1 to 10 do
   begin
   x[0]:=0;
   s[0]:=0;
   x[i]:=x[i-1]+h; {x[2] = x[1] + h ; x[3]=x[2]+h}
   ss[i]:=exp((1/3)*ln(x[i]));
   end;
  s[i]:=s[i-1]+ss[i];
writeln(x[i]:2 :2,'    ',s[i]:2 :2);
end.
end.