Разбить программу: проверить то, что ввел юзер и сравнить с тем, что посчитала прога

// находим значение целевой фугкции в этой точке
            if ((LMinMaxValue < (x * C[0] + y * C[1])) and (FTaskType = 0)) or
               ((LMinMaxValue > (x * C[0] + y * C[1])) and (FTaskType = 1)) then
            begin
              sx := x;
              sy := y;
              FTaskSolved := true;
              LMinMaxValue := x * C[0] + y * C[1];
 
              GetLine(LLine1, i);
              GetLine(LLine2, j);
 
              if abs(x) > Maxsx then
              begin
                Maxsx := abs(x);
              end;
 
              if abs(y) > Maxsy then
              begin
                Maxsy := abs(y);
              end;
            end;
          end;