Задача на массивы в Turbo Pascal

Program Demo;
Var x:array[1..10] of integer;
    y:array[1..15] of integer;
    c:array[1..10] of integer;
    i:integer;
    sum: integer;
Begin
    randomize;
    for i:=1 to 10 do
    x:=random(100)-50;
    sum:=0;
    for i:=1 to 15 do begin
    y:=random(100);
    sum:=sum+y;
    end;
    for i:=1 to 10 do begin
    if x<0 then
    c:=x
    else
    c:=sum;
    writeln('c[',i,']=',c);
    end;
    readln;
End.