заменить элементы

[Лелюся]

заменить элементы с к1-го по к3-го на обратные, если элементы задаются случайно на [-12;35]

uses crt;
var a: array [1..100] of integer;
i,k,k1,k2,k3: integer;
begin
writeln('Дан массив');
for i:=1 to 10 do
begin
a[i]:=random(48)-35;
write(a[i]:4);
for i:=k1 to k3 do
a[i]:=-a[i];
end;
writeln;
writeln('обратное по знаку число ',k);
end.

[Mad_Cat]

uses crt;
var a: array [1..100] of integer;
i,k,k1,k2,k3: integer;
begin
writeln('Дан массив');
for i:=1 to 10 do
begin
a[i]:=random(48)-12;
write(a[i]:4);end;writeln;
write('k1=');
readln(k1);  write('k3=');
readln(k3);
for i:=k1 to k3 do
a[i]:=-a[i];
for i:=1 to 10 do
begin
write(a[i]:4);end;
end.