Составить программу для ввода отрезка и окружности на экран. "паскаль abc"

uses GraphABC;

begin

 SetPenColor(Color.Red);

 Line(15,15,230,30);

 DrawCircle(70,90,50);

end.

Const
  lim = 11;

type
  V = array[1..lim] of integer;

function FirstNegative(a: V; n: integer): integer;
var
  i: integer;
begin
  i := 0;
  Result := 0;
  repeat
    i := i + 1;
    if a[i] < 0 then Result := i
  until (Result > 0) or (i > lim)
end;

procedure InpMass(var a: V; var n: integer; mName: string);
// Организует ввод массива
var
  i, p: integer;
begin
  writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода');
  i := 0;
  repeat
    read(p);
    i := i + 1;
    if p <> 7777 then a[i] := p;
  until (p = 7777) or (i > lim);
  n := i - 1
end;

var
  a, b: V;
  m, n, p, q: integer;

begin
  InpMass(a, m, 'A');
  InpMass(b, n, 'B');
  p := FirstNegative(a, m);
  q := FirstNegative(b, n);
  if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p)
  else writeln('Номер первого отрицательного элемента в массива B: ', q)
end.

Тестовое решение:

Вводите элементы массива A; 7777 - конец ввода
37 14 -25 32 30 -29 38 27 7777
Вводите элементы массива B; 7777 - конец ввода
33  -36   23  -17   -3  -16  -33   33  -48  -39   30 7777
Номер первого отрицательного элемента в массива B: 2

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(5,5,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Транспонированный массив ***');
  a:=Transpose(a);  a.Println(4)
end.

Пример
*** Исходный массив ***
  40 -31  16 -27  -3
  34 -37   0 -33  -8
 -16 -44 -38  19 -22
 -32  36 -22  42 -17
 -31  20  36   8   9

*** Транспонированный массив ***
  40  34 -16 -32 -31
 -31 -37 -44  36  20
  16   0 -38 -22  36
 -27 -33  19  42   8
  -3  -8 -22 -17   9