Створити список з 10 випадкових елементів (від -10 до 10). Змінити знак для всіх елементів списку​

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.

Program Natasha1925_2;
uses crt;
const n=50;
var
  a:array[1..n,1..n] of integer;
  t:integer;
  i,j,kwo:integer;
  yes:boolean;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  {создание массива}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:7:2);
        end;
      writeln();
    end;
  write('Введите число t: '); read(t);
  {поиск строк}
  kwo:=0;
  for i:=1 to n do
    begin
      yes:=FALSE;
      for j:=1 to n do
        if a[i,j]=t then
          yes:=TRUE;
      if yes then kwo:=kwo+1;
    end;
 writeln('Количество строк: ',kwo);
end.