составить программку, устанавливающую 1-го ли знака два числа, вводимые клавиатуры

var
  a, b: integer;
begin
  readln(a, b);
  writeln(System.Math.Sign(a) = System.Math.Sign(b) ? 'Да' : 'Нет');
end.

Либо  примитивнее  проще:
var
  a, b: integer;
begin
  readln(a, b);
  if (a gt; 0) then a := 1;
  if (a = 0) then a := 0;
  if (a lt; 0) then a := -1;
  if (b gt; 0) then b := 1;
  if (b = 0) then b := 0;
  if (b lt; 0) then b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.

Немножко  упрощённый  оптимизированный вариант:
var
  a, b: integer;
begin
  readln(a, b);
  if (a gt; 0) then 
    a := 1
  else
    if (a = 0) then
      a := 0
    else
      a := -1;
  if (b gt; 0) then 
    b := 1
  else
     if (b = 0) then 
       b := 0
     else
       b := -1;
  if (a = b) then
    writeln('Yes')
  else
    writeln('No');
end.