Дан массив из 20 целых чисел. Все элементы до контрольного числа заменить на противоположенные — Pascal(Паскаль)

uses crt;
const n=20;
var a:array[1..n] of integer;
    n,i,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)-9;
  write(a[i]:4);
 end;
writeln;
writeln;
write('Введите контрольное число x=');
readln(x);
if a[1]=x then write('Контрольное число первое, замен нет!')
else
 begin
  i:=1;k:=0;
  while (a[i]<>x)and(i<=n) do
   begin
    a[i]:=-a[i];
    i:=i+1;
    k:=k+1;
   end;
  writeln('Массив после замены:');
  for i:=1 to n do
  write(a[i]:4);
  writeln;
  if k=n then write('Числа ',x,' в массиве нет, все элементы заменены');
 end;
readln
end.